A092132 Indices k of Bernoulli numbers B(k) whose numerators are primes.

10, 12, 14, 16, 18, 36, 42

Offset: 1

Author

Eric W. Weisstein, Feb 23 2004

Keywords

• nonn
• more

Comments

No others with k <= 22100. - Eric W. Weisstein, Mar 01 2004

a(8) > 50000. - Robert Price, Oct 20 2013

a(8) > 300000. - Serge Batalov, Jun 27 2025

Links

• Eric Weisstein's World of Mathematics, Bernoulli Number
• Eric Weisstein's World of Mathematics, Integer Sequence Primes

Crossrefs

Cf. A092133.

Programs

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