%I #11 Feb 16 2025 08:32:52

%S 65,139,149,213,287,298,361,435,447,509,583,596,657,731,745,805,879,

%T 894,953,1027,1043,1101,1175,1192,1249,1323,1341,1397,1471,1490,1545,

%U 1619,1639,1693,1767,1788,1841,1915,1937,1989,2063,2086,2137,2211,2235,2285

%N Numbers k such that numerator of Bernoulli(2*k) is divisible by 149, the seventh irregular prime.

%H Amiram Eldar, <a href="/A092226/b092226.txt">Table of n, a(n) for n = 1..2500</a>

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>.

%t Select[ Range[ 2358], Mod[ Numerator[ BernoulliB[2# ]], 149] == 0 &]

%Y Cf. A000928, A091216, A092221, A092222, A092223, A092224, A092225, A092227, A092228, A092229.

%K nonn,changed

%O 1,1

%A _Robert G. Wilson v_, Feb 25 2004