OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (from Hart et al.)
William Hart, David Harvey and Wilson Ong, Irregular primes to two billion, Mathematics of Computation, Vol. 86, No. 308 (2017), pp. 3031-3049; also available at arXiv:1605.02398 [math.NT], 2016.
David Harvey, Irregular primes to two billion (includes a list of all primes less than 2^31).
MATHEMATICA
Do[ p = Prime[ n ]; c = 0; k = 1; While[ 2*k < p - 3, If[ Mod[ Numerator[ BernoulliB[ 2*k ] ], p ] == 0, c++ ]; k++ ]; If[ c > 1, Print[ p ] ], {n, 3, 750} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 09 2001
STATUS
approved