%I #22 Jun 08 2021 02:30:54
%S 10,12,14,16,18,36,42
%N Indices k of Bernoulli numbers B(k) whose numerators are primes.
%C No others with k <= 22100. - _Eric W. Weisstein_, Mar 01 2004
%C a(8) > 50000. - _Robert Price_, Oct 20 2013
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/IntegerSequencePrimes.html">Integer Sequence Primes</a>
%t 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 *)
%t Select[Range[50],PrimeQ[Numerator[BernoulliB[#]]]&] (* _Harvey P. Dale_, Sep 30 2019 *)
%Y Cf. A092133.
%K nonn,more
%O 1,1
%A _Eric W. Weisstein_, Feb 23 2004