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 A091216 #19 Mar 29 2021 08:02:12 %S A091216 16,34,37,52,70,74,88,106,111,124,142,148,160,178,185,196,214,222,232, %T A091216 250,259,268,286,296,304,322,333,340,358,370,376,394,407,412,430,444, %U A091216 448,466,481,484,502,518,520,538,555,556,574,592,610,628 %N A091216 Numbers k such that numerator of Bernoulli(2*k) is divisible by 37, the first irregular prime. %H A091216 Amiram Eldar, <a href="/A091216/b091216.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..100 from Seiichi Manyama) %t A091216 Select[ Range[ 681], Mod[ Numerator[ BernoulliB[2# ]], 37] == 0 &] (* _Robert G. Wilson v_, Feb 24 2004 *) %o A091216 (PARI) for(j=1,260, if (! (numerator(bernfrac(2*j))%37), print1(j, ", "))) %Y A091216 Cf. A000928, A092221, A092222, A092223, A092224, A092225, A092226, A092227, A092228, A092229, A092230, A092231. %K A091216 nonn %O A091216 1,1 %A A091216 _N. J. A. Sloane_, Feb 24 2004 %E A091216 More terms from _Robert G. Wilson v_, Feb 24 2004