%I#32 2021年10月9日06:57:52

%S 3,7,11,23,47,59,71,79,83103107127131139151163167179191199，

%电话：21122723925126327128331311347359367383419431439443，

%电话：4634674794874995035235475635715875996076476591719727

%N素数p，其本原根的平均数>p/2。

%这些素数似乎都与3（mod 4）同余。

%H Amiram Eldar，n的表，n的a（n）=1..10000</a>

%F a（n）=素数（A266990（n））。

%e a（2）=7，因为7的原始根是3和5，它们的平均值是（3+5）/2=8/2>7/2。

%t A=表[Total[Flatten[Position[Table[MultiplicativeOrder[i，Prime[k]]，{i，Prime[k]-1}]，Prime[k]-1]]/（EulerPhi[Prime[k]-1]Prime[k]/2），{k，1，1000}]；素数[展平[位置[A，_？（#>1&）]]

%t选择[范围[1000]，PrimeQ[#]和平均值[PrimitiveRootList[#]]>#/2&]（*_Amiram Eldar_，2021年10月9日*）

%Y参见A008330、A060749、A088144、A266990。

%K nonn公司

%O 1,1号机组

%A _Dimiri Papadopoulos，2016年1月8日