OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..500
MATHEMATICA
f[n_] := Block[{k = 1, m = n^2}, While[ Mod[ Binomial[2k, k], m] != 0, k++ ]; k]; Array[f, 61]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 23 2005
STATUS
approved