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,1

Links

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

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 *)

Prog

(PARI) { n=0; for (m=1, 10^9, if (binomial(2*m, m) % ((m + 1)*(m + 2)*(m + 3)) == 0, write("b065348.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 17 2009

Crossrefs

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

Sequence in context: A317770 A154685 A068591 * A155717 A188197 A234096

Adjacent sequences: A065345 A065346 A065347 * A065349 A065350 A065351

Keyword

nonn

Author

Labos Elemer, Oct 30 2001

Status

approved