%I #9 Aug 13 2015 21:21:21
%S 5,-691,7,-3617,43867,-26315271553053477373,1520097643918070802691
%N Prime numerators of Bernoulli numbers, i.e., numerators of Bernoulli numbers with indices A092132.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>
%t 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 *)
%Y Cf. A092132.
%K sign,more
%O 1,1
%A _Eric W. Weisstein_, Feb 22 2004