OFFSET
1,2
EXAMPLE
a(6) = 7 = 7*8*9*10/6! = 5040/720.
MATHEMATICA
a[n_] := Catch[ For[ k = n-2, True, k++, If[ IntegerQ[an = (n+k)!/n!^2], Throw[an]]]]; a[1]=1; Table[a[n], {n, 1, 24}] (* Jean-François Alcover, Jun 28 2012 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Amarnath Murthy, Sep 07 2002
EXTENSIONS
More terms from Sascha Kurz, Feb 02 2003
STATUS
approved