|
Search: id:A016085
|
|
|
| A016085 |
|
a(1) = 1; a(n+1) = floor((sum{k=1 to n} a(k)^3)^(1/3)). |
|
+0
1
|
|
| 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5, 6, 7, 9, 11, 14, 17, 21, 27, 34, 42, 53, 67, 84, 106, 133, 167, 211, 265, 334, 421, 530, 668, 841, 1060, 1335, 1682, 2119, 2670, 3364, 4238, 5339, 6727, 8475, 10678, 13453, 16950, 21355, 26906, 33899, 42710, 53811
(list; graph; listen)
|
|
|
OFFSET
|
1,9
|
|
|
EXAMPLE
|
a(10) = floor((1^3 + 1^3 + 1^3 + 1^3 + 1^3 + 1^3 + 1^3 + 1^3 + 2^3)^(1/3)) = floor(16^(1/3)) = 2.
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := a[n] = Floor[ Sum[ a[k]^3, {k, 1, n - 1}]^(1/3)]; Table[ a[n], {n, 1, 56} ]
|
|
CROSSREFS
|
Sequence in context: A018049 A120170 A136421 this_sequence A018122 A074732 A089046
Adjacent sequences: A016082 A016083 A016084 this_sequence A016086 A016087 A016088
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Feb 15 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 18 2002
|
|
|
Search completed in 0.002 seconds
|
