%我

%S 49161764711511217181118472939383340034657495167637687，

%电话：88319011104631058912073132171453314737149571528715787，

%传真1582131600717681178631871318869205332093924019246592515326561

%N个不规则指数为3的不规则素数。

%H Amiram Eldar，<a href=“/A060975/b060975.txt”>n=1..10000的n，a（n）表（由Hart等人计算，T.D.Noe的第1.9824项，由Buhler等人计算）

%H J.Buhler，R.Crandall，R.Ernvall，T.Metsankyla and M.A.Shokrollahi，<A href=“http://dx.doi.org/10.1006/jsco.1999.1011”>不规则素数和1200万分圆不变量，</A>，J.符号计算31，2001，89-96。

%H<a href=“/index/Be\Bernoulli”>Bernoulli数，素数的不规则指数</a>

%H William Hart，David Harvey and Wilson Ong，<a href=“https://doi.org/10.1090/mcom/3211”>20亿的不规则素数，<a href=“https://doi.org/10.1090/mcom/3211”>arxiv:1605.02398[math.NT]</a>，2016年。

%H David Harvey，<a href=“https://web.mathematics.unsw.edu.au/~davidharvey/papers/twoblion/”>不规则素数为20亿</a>（包括所有小于2^31的素数的列表）。

%t Do[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}]

%t Do[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，13887}]

%Y比照A000928、A000367、A060974、A060975、A073276和A073277。

%不知道

%O 1,1号

%2002年7月22日

%E由罗伯特G.威尔逊v.延长，2006年9月20日