%I #10 May 17 2021 04:09:35
%S 7,16,17,19,22,34,38,43,46,47,49,58,59,61,64,67,71,73,76,79,80,92,97,
%T 101,102,103,106,107,110,122,124,127,129,133,137,139,142,148,149,151,
%U 157,163,164,166,167,169,172,177,178,181,184,185,188,190,192,193,196
%N Numbers k such that binomial(2*k,k) * B(2*k) is an integer where B(k) are the Bernoulli numbers B(1)=-1/2 B(2)=1/6 B(4)=-1/30... B(2*m+1)=0 m>1.
%H Amiram Eldar, <a href="/A067776/b067776.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[200], IntegerQ[Binomial[2*#, #] * BernoulliB[2*#]] &] (* _Amiram Eldar_, May 17 2021 *)
%Y Cf. A027641, A027642.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 06 2002