A067776 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.

7, 16, 17, 19, 22, 34, 38, 43, 46, 47, 49, 58, 59, 61, 64, 67, 71, 73, 76, 79, 80, 92, 97, 101, 102, 103, 106, 107, 110, 122, 124, 127, 129, 133, 137, 139, 142, 148, 149, 151, 157, 163, 164, 166, 167, 169, 172, 177, 178, 181, 184, 185, 188, 190, 192, 193, 196

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[200], IntegerQ[Binomial[2*#, #] * BernoulliB[2*#]] &] (* Amiram Eldar, May 17 2021 *)

Crossrefs

Cf. A027641, A027642.

Sequence in context: A063593 A070417 A101681 * A193688 A132348 A177763

Adjacent sequences: A067773 A067774 A067775 * A067777 A067778 A067779

Keyword

nonn

Author

Benoit Cloitre, Feb 06 2002

Status

approved