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,2

Links

Table of n, a(n) for n=0..60.

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

Cf. A002387, A054043, A019529.

Sequence in context: A067783 A062418 A056168 * A019293 A130519 A001972

Adjacent sequences: A054038 A054039 A054040 * A054042 A054043 A054044

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