|
Search: id:A130797
|
|
|
| A130797 |
|
a(1)=1. For n >= 2, a(n) = floor[n!/(sum{k=1 to n-1} a(k))]. |
|
+0
1
|
|
| 1, 2, 2, 4, 13, 32, 93, 274, 861, 2830, 9707, 34662, 128442, 492747, 1952714, 7978537, 33552502, 145002884, 643093018, 2923285048, 13604173759, 64747674282, 314856179539, 1562985778041, 7914087230121, 40843626440195, 214695804264578, 1148729745111018, 6252380887804219
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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 (deutsch(AT)duke.poly.edu), 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 (stefan.steinerberger(AT)gmail.com), Jul 16 2007
f[l_] := Append[l, Floor[(Length[l] + 1)!/(Plus @@ l)]], Nest[f, {1}, 26] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Adjacent sequences: A130794 A130795 A130796 this_sequence A130798 A130799 A130800
Sequence in context: A098774 A009264 A048157 this_sequence A120654 A121514 A121526
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Jul 15 2007
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Emeric Deutsch (deutsch(AT)duke.poly.edu) and Joshua Zucker (joshua.zucker(AT)stanfordalumni.org), Jul 16 2007
|
|
|
Search completed in 0.002 seconds
|
