|
Search: id:A126793
|
|
|
| A126793 |
|
a(1)=1. a(n+1) = sum{k|n} floor(a(k)/a(n/k)). |
|
+0
1
|
|
| 1, 1, 2, 2, 3, 3, 5, 5, 7, 8, 11, 11, 16, 16, 21, 22, 28, 28, 36, 36, 45, 47, 58, 58, 72, 73, 89, 92, 110, 110, 137, 137, 161, 166, 194, 195, 232, 232, 268, 276, 317, 317, 371, 371, 423, 435, 493, 493, 568, 569, 643, 657, 738, 738, 843, 846, 948, 966, 1076, 1076, 1219, 1219
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
EXAMPLE
|
a(13) = sum{k|12} [a(k)/a(12/k)] = [a(1)/a(12)] + [a(2)/a(6)] + [a(3)/a(4)] + [a(4)/
a(3)] + [a(6)/a(2)] + [a(12)/a(1)] = [1/11] + [1/3] + [2/2] + [2/2] + [3/1] + [11/1] = 0 +0 +1 +1 +3 +11 = 16.
|
|
MATHEMATICA
|
f[l_List] := Block[{n = Length[l], d = Divisors[n]}, Append[l, Sum[ Floor[l[[d[[k]]]]/l[[n/d[[k]]]]], {k, Length[d]}]]]; Nest[f, {1}, 61] (*Chandler*)
|
|
CROSSREFS
|
Sequence in context: A029018 A025147 A032230 this_sequence A069910 A008484 A026797
Adjacent sequences: A126790 A126791 A126792 this_sequence A126794 A126795 A126796
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Feb 20 2007
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Mar 03 2007
|
|
|
Search completed in 0.002 seconds
|
