Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A054041
Sum of a(n) terms of 1/k^(1/3) first exceeds n.
3
1, 2, 3, 4, 6, 8, 10, 12, 15, 17, 20, 23, 25, 28, 32, 35, 38, 41, 45, 49, 52, 56, 60, 64, 68, 72, 76, 81, 85, 89, 94, 98, 103, 108, 113, 117, 122, 127, 132, 138, 143, 148, 153, 159, 164, 170, 175, 181, 187, 192, 198, 204, 210, 216, 222, 228, 234, 240, 247, 253, 259
OFFSET
0,2
MATHEMATICA
s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(1/3), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 75} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Asher Auel, Apr 13 2000
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Aug 01 2000
Edited by N. J. A. Sloane, Jan 17 2009 at the suggestion of R. J. Mathar
STATUS
approved