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

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

Offset

1,1

Comments

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

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

Links

Table of n, a(n) for n=1..7.

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

Cf. A092133.

Sequence in context: A227870 A007958 A179083 * A088170 A329522 A189555

Adjacent sequences: A092129 A092130 A092131 * A092133 A092134 A092135

Keyword

nonn,more

Author

Eric W. Weisstein, Feb 23 2004

Status

approved