A056178 Sum of a(n) terms of 1/k^(2/3) first exceeds n.

1, 2, 3, 6, 10, 15, 22, 31, 42, 56, 71, 90, 112, 137, 165, 197, 233, 272, 317, 365, 419, 477, 541, 610, 685, 766, 853, 946, 1045, 1152, 1265, 1386, 1514, 1650, 1793, 1945, 2105, 2274, 2451, 2637, 2833, 3038, 3252, 3477, 3711, 3956, 4212, 4478, 4755, 5043

Offset

0,2

Links

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

Mathematica

s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(2/3), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 75} ]
Flatten[Table[Position[Accumulate[Table[1/k^(2/3), {k, 5100}]], _?(#>n&), {1}, 1], {n, 0, 50}]] (* Harvey P. Dale, Mar 16 2015 *)

Crossrefs

Cf. A019529 and A002387.

Sequence in context: A152452 A217741 A074134 * A320597 A227566 A280421

Adjacent sequences: A056175 A056176 A056177 * A056179 A056180 A056181

Keyword

nonn

Author

Robert G. Wilson v, Aug 01 2000

Status

approved