OFFSET
1,2
LINKS
Bruno Berselli, Table of n, a(n) for n = 1..2000
EXAMPLE
MATHEMATICA
a[n_] := Module[{ris}, ris = {}; Do[If[Mod[Binomial[2 k, k], k] == 0, AppendTo[ris, k]], {k, n}]; Length[ris]]; Table[a[n], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Bruno Berselli, Jan 05 2014 - sequence suggested by Umberto Cerruti (University of Turin, Italy)
STATUS
approved