OFFSET
1,2
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..189
MATHEMATICA
f[0] = 1, f[n_] := Block[{k = f[n - 1]}, While[ !IntegerQ[ Binomial[2k, k]/(n!(k + 1))], k++ ]; k]; Array[f, 20]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2006
EXTENSIONS
More terms from Ryan Propper, Oct 13 2006
Further terms from Ryan Propper, Dec 25 2007
Further terms from Max Alekseyev, Feb 04 2008
STATUS
approved