#来自在线整数序列百科全书的问候!本次搜索:id:a060975〈展示1-1的1-1个1 ;%I a060975;%S a060975;%S a060975%a060975;%S a060975 49161767647471151121718111847292939383344340034657495167637687,;;%T a060975 883190111046310589120731321714533147474714995715287158787,;%U a060975 1588231600717676811786318718718718718718718718718731319332093929292192192192462525255326561 ;;%U a060975 158823163163163160071768117863187187187187187187187%N a060975具有不规则性的不规则素数指数三。 %H A060975阿米拉姆·埃尔达,n=1..10000的n,a(n)表(由Hart等人计算,T.D.Noe的第1.9824项,由Buhler等人计算) %H A060975 J.Buhler,R.Crandall,R.Ernvall,T.Metsankyla和M.A.Shokrolahi,1200万的不规则素数和分圆不变量,J.符号计算31,2001,89-96. %H A060975贝努利数,素数的不规则指数%H A060975威廉·哈特、大卫·哈维和威尔逊·翁,不规则素数达到20亿《计算数学》,第86卷,第308号(2017年),第3031-3049页;也可在arXiv:1605.02398[math.NT],2016年。 %H A060975大卫哈维,不规则素数达到20亿(包括所有小于2^31的素数的名单)。 %t A060975做[p=p=Prime[n];k=1;c=0;而[2*k<p-3,若[Mod[Numerator[BernoulliB[2*k]]],p]==0,c++];k++;若[c==3,打印[p]],{n,3,1000}];10;%t A060975做[p=Prime@n;k=1;c=0;当[2*k<p-3,若[Mod[Moneurator[Bernouloul[p[[c==3,打印[3,打印[p]],{n,3,3,3,3,k,k,k,c lib[2*k]],p]==0,c++];k++];如果[c==3,Print@p],{n,3,13887}];%Y A060975 Cf.A000928,A000367,A060974,A060975,A073276,A073277,A073277.A073277.;%K A060975 nonn;%K A060975 nonn;%O aA060975 1,1;%A aA060975 _robertg.Wilson v_,2002年7月22日;%E A060975延期_robertg.Wilson v v_,2006年9月20日,2006年9月20日 ;##内容在OEIS下提供的内容是在OEIS终端下用户许可协议:http://OEIS.org/License