1，1

这些素数等于3（mod 4）。

罗伯特·以色列，n=1..1000的n，a（n）表

a（n）=素数(甲266988（n） ）。

a（1）=31。31的原始根是3、11、12、13、17、21、22和24。

其平均值为（3+11+12+13+17+21+22+24）/phi（30）=123/8<31/2。

f： =proc（p）局部g；

如果不是isprime（p），则返回false fi；

g:=根数（p）；

evalb（添加（g&^i mod p，i=select（t->igcd（t，p-1）=1，[$1..p-2]））

<p/2*numtheory:-φ（p-1））

结束过程：

选择（f，[顺序（i，i=3..10000，4）]）#罗伯特·以色列2016年2月9日

A=表[Total[PLANNET[Position[Table[PLATETIVEORDER[i，PRIMITE[k]]，{i，Prime[k]-1]]]/（EulerPhi[Prime[k]-1]素数[k]/2），{k，1，100}]；素数[PLANNE[Position[A，U？]？（#<1&）]]

（PARI）ar（p）=my（r，pr，j）；r=向量（eulerphi（p-1））；pr=znprimroot（p）；对于（i=1，p-1，if（gcd（i，p-1）==1，r[j++]=升力（pr^i））；向量排序（r）；

isok（p）=my（vr=ar（p））；vecsum（vr）/#vr<p/2；

lista（nn）=forprime（p=2，nn，if（isok（p），print1（p，“，”））\\米歇尔·马库斯2016年2月9日

囊性纤维变性。A008330型,A060749号,A088144,甲266987,甲266988,A267010号.

上下文顺序：A060834号 A060844号 A112789号*邮编：A161615 A307950 A0898年

相邻序列：甲266986 甲266987 甲266988*甲266990 甲266991 甲266992

不

帕帕佐普洛斯2016年1月8日

经核准的