A065348 Positions of zeros in A065345.

8, 11, 16, 18, 19, 20, 23, 26, 35, 38, 41, 42, 43, 44, 46, 48, 49, 50, 51, 53, 54, 55, 56, 58, 59, 60, 64, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 80, 83, 86, 89, 92, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 107, 110, 113, 116, 119, 123, 124, 128, 130, 131, 134

Offset: 1

Author

Labos Elemer, Oct 30 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000
• Carl Pomerance, Divisors of the middle binomial coefficient, Amer. Math. Monthly, 112 (2015), 636-644.

Crossrefs

Cf. A000108, A065344, A065345, A065346, A065347, A065349.

Programs

Mathematica

ris = {}; Do[If[Mod[Binomial[2 n, n], (n + 1) (n + 2) (n + 3)] == 0,
AppendTo[ris, n]], {n, 150}]; ris (* Bruno Berselli, Jan 06 2014 *)

PARI

isok(k) = { binomial(2*k, k) % ((k + 1)*(k + 2)*(k + 3)) == 0 } \\ Harry J. Smith, Oct 17 2009