OFFSET
1,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..800
MAPLE
a[1]:=1: for n from 2 to 27 do a[n]:=floor(factorial(n)/(sum(a[k], k=1..n-1))) end do: seq(a[n], n = 1 .. 27); # Emeric Deutsch, Jul 22 2007
MATHEMATICA
a={1}; For[n=2, n<50, n++, AppendTo[a, Floor[n!/Sum[a[[i]], {i, 1, n - 1}]]]]; a (* Stefan Steinerberger, Jul 16 2007 *)
f[l_] := Append[l, Floor[(Length[l] + 1)!/(Plus @@ l)]], Nest[f, {1}, 26] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 15 2007
EXTENSIONS
STATUS
approved