%I #9 Aug 22 2021 00:14:24
%S 142,592,808,1258,1369,1474,1924,2140,2590,2738,2806,3256,3472,3922,
%T 4107,4138,4588,4804,5254,5470,5476,5920,6136,6586,6802,6845,7252,
%U 7468,7918,8134,8214,8584,8800,9250,9466,9583,9916,10132,10582,10798,10952,11248
%N Numbers k such that the numerator of Bernoulli(2k) is divisible by the square of 37, the first irregular prime.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>.
%F See A090789.
%t Select[ Range[ 5780], Mod[ Numerator[ BernoulliB[2# ]], 37^2] == 0 &]
%Y Equals A090789/2. Cf. A000928, A091216.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 25 2004
%E More terms from _T. D. Noe_, Feb 26 2004