OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1664
EXAMPLE
a(6) = 7 = 7*8*9*10/6! = 5040/720.
MAPLE
a:= proc(n) option remember; local k, t; t:= 1/n!;
for k while denom(t)>1 do t:= t*(n+k) od; t
end:
seq(a(n), n=0..28); # Alois P. Heinz, Feb 05 2025
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
a(0)=1 prepended by Alois P. Heinz, Feb 05 2025
STATUS
approved
