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 A092133 #10 Feb 16 2025 08:32:52 %S A092133 5,-691,7,-3617,43867,-26315271553053477373,1520097643918070802691 %N A092133 Prime numerators of Bernoulli numbers, i.e., numerators of Bernoulli numbers with indices A092132. %H A092133 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a> %t A092133 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 A092133 Cf. A092132. %K A092133 sign,more %O A092133 1,1 %A A092133 _Eric W. Weisstein_, Feb 22 2004