A060974 Irregular primes with irregularity > 1.

157, 353, 379, 467, 491, 547, 587, 617, 631, 647, 673, 691, 809, 929, 1151, 1217, 1291, 1297, 1307, 1663, 1669, 1733, 1789, 1811, 1847, 1933, 1997, 2003, 2087, 2273, 2309, 2371, 2383, 2423, 2441, 2591, 2671, 2789, 2909, 2939, 2957, 3391, 3407, 3511

Offset: 1

Author

Robert G. Wilson v, May 09 2001

Keywords

• nonn

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).

Crossrefs

Cf. A000928, A000367, A060975, A073276, A073277 and A073278.

Programs

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} ]