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,changed
AUTHOR
Robert G. Wilson v, Jun 19 2006
EXTENSIONS
a(16)-a(17) from Ryan Propper, Oct 13 2006
Further terms from Ryan Propper, Dec 25 2007
Further terms from Max Alekseyev, Feb 04 2008
STATUS
approved