This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A092132 #26 Jun 28 2025 18:12:34 %S A092132 10,12,14,16,18,36,42 %N A092132 Indices k of Bernoulli numbers B(k) whose numerators are primes. %C A092132 No others with k <= 22100. - _Eric W. Weisstein_, Mar 01 2004 %C A092132 a(8) > 50000. - _Robert Price_, Oct 20 2013 %C A092132 a(8) > 300000. - _Serge Batalov_, Jun 27 2025 %H A092132 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a> %H A092132 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/IntegerSequencePrimes.html">Integer Sequence Primes</a> %t A092132 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 A092132 Select[Range[50],PrimeQ[Numerator[BernoulliB[#]]]&] (* _Harvey P. Dale_, Sep 30 2019 *) %Y A092132 Cf. A092133. %K A092132 nonn,more %O A092132 1,1 %A A092132 _Eric W. Weisstein_, Feb 23 2004