OFFSET
0,1
COMMENTS
The 0th term is the largest number k such that binomial(2k,k) is squarefree.
MATHEMATICA
b = 1; t = Table[b = b*(4 - 2/n); last = 0; Do[If[Mod[b, p^2] == 0, last = p], {p, Prime[Range[PrimePi[Sqrt[2*n]]]]}]; last, {n, 20000}]; t = Join[{0}, t]; Table[Length[Position[t, p]], {p, Join[{0}, Prime[Range[20]]]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 27 2014
STATUS
approved