OFFSET
1,1
COMMENTS
No others with k <= 22100. - Eric W. Weisstein, Mar 01 2004
a(8) > 50000. - Robert Price, Oct 20 2013
LINKS
Eric Weisstein's World of Mathematics, Bernoulli Number
Eric Weisstein's World of Mathematics, Integer Sequence Primes
MATHEMATICA
Reap[For[n = 1, n <= 1000, n++, If[ PrimeQ[ Numerator[ BernoulliB[n]]], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 31 2012 *)
Select[Range[50], PrimeQ[Numerator[BernoulliB[#]]]&] (* Harvey P. Dale, Sep 30 2019 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Eric W. Weisstein, Feb 23 2004
STATUS
approved