A054041 Sum of a(n) terms of 1/k^(1/3) first exceeds n.
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
Keywords
Programs
-
Mathematica
s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(1/3), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 75} ]
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