A092133 Prime numerators of Bernoulli numbers, i.e., numerators of Bernoulli numbers with indices A092132.

5, -691, 7, -3617, 43867, -26315271553053477373, 1520097643918070802691

Offset: 1

Author

Eric W. Weisstein, Feb 22 2004

Keywords

• sign
• more

Links

• Eric Weisstein's World of Mathematics, Bernoulli Number

Crossrefs

Cf. A092132.

Programs

Mathematica

Reap[For[n = 1, n <= 1000, n++, If[PrimeQ[nu = Numerator[BernoulliB[n]]], Print[nu]; Sow[nu]]]][[2, 1]] (* Jean-François Alcover, Oct 31 2012 *)