Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
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, 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
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: A136421 A274159 A239905 * A018122 A074732 A089046
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Feb 15 2002
EXTENSIONS
Edited by Robert G. Wilson v, Feb 18 2002
STATUS
approved