|
Search: id:A126656
|
|
|
| A126656 |
|
a(1)=1; for n>1, a(n) = sum{k=1 to n-1} a(k) floor(n/k). |
|
+0
1
|
|
| 1, 2, 5, 13, 27, 62, 125, 266, 538, 1106, 2213, 4509, 9019, 18166, 36365, 73012, 146025, 292658, 585317, 1171783, 2343697, 4689610, 9379221, 18763300, 37526628, 75062278, 150125100, 300268507, 600537015, 1201111598, 2402223197
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[l_List] := Block[{n = Length[l] + 1}, Append[l, Sum[l[[k]]*Floor[n/k], {k, n - 1}]]]; Nest[f, {1}, 32] (*Chandler*)
|
|
CROSSREFS
|
Adjacent sequences: A126653 A126654 A126655 this_sequence A126657 A126658 A126659
Sequence in context: A048871 A087250 A065301 this_sequence A026522 A122491 A002559
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Feb 09 2007
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 11 2007
|
|
|
Search completed in 0.002 seconds
|
