|
| |
|
|
A060974
|
|
Irregular primes with irregularity > 1.
|
|
3
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A142581 A140625 A142874 * A073277 A180233 A096708
Adjacent sequences: A060971 A060972 A060973 * A060975 A060976 A060977
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), May 09 2001
|
| |
|
|
