|
| |
|
|
A092132
|
|
Indices k of Bernoulli numbers B(k) whose numerators are primes.
|
|
5
|
| |
|
|
|
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
|
| |
|
|
