login
A065349
Positions of zeros in A065346.
9
19, 41, 42, 43, 49, 50, 53, 54, 55, 58, 67, 71, 74, 75, 95, 97, 98, 99, 102, 103, 123, 135, 138, 139, 145, 149, 153, 154, 155, 159, 163, 165, 166, 167, 168, 169, 170, 173, 174, 175, 178, 179, 180, 183, 184, 185, 191, 193, 194, 195, 197, 198, 199, 200, 201, 202
OFFSET
1,1
LINKS
C. 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) (n + 4)] == 0, AppendTo[ris, n]], {n, 250}]; 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)*(m + 4)) == 0, write("b065349.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 17 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 30 2001
STATUS
approved