%I #11 Mar 29 2021 08:03:14
%S 196,370,718,826,1240,1443,1762,1888,2183,2284,2516,2806,2950,3328,
%T 3589,3850,4012,4366,4372,4894,5074,5416,5735,5938,6136,6460,6549,
%U 6808,6982,7198,7504,7881,8026,8260,8548,8732,8954,9070,9322,9592,10027,10114
%N Numbers k such that numerator of Bernoulli(2*k) is divisible by 37 and 59, the first two irregular primes.
%H Amiram Eldar, <a href="/A092231/b092231.txt">Table of n, a(n) for n = 1..500</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>.
%t Select[ Range[ 5780], Mod[ Numerator[ BernoulliB[ 2# ]], 37] == Mod[ Numerator[ BernoulliB[ 2# ]], 59] == 0 &]
%Y Intersection of A091216 and A092221.
%Y Cf. A000928.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 25 2004