|
Search: id:A060974
|
|
|
| A060974 |
|
Irregular primes with irregularity > 1. |
|
+0
4
|
|
| 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; listen)
|
|
|
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 this_sequence A073277 A096708 A142833
Adjacent sequences: A060971 A060972 A060973 this_sequence A060975 A060976 A060977
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 09 2001
|
|
|
Search completed in 0.002 seconds
|
