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,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

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

Sequence in context: A142874 A346431 A234364 * A073277 A180233 A096708

Adjacent sequences: A060971 A060972 A060973 * A060975 A060976 A060977

Keyword

nonn

Author

Robert G. Wilson v, May 09 2001

Status

approved