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

Author

Robert G. Wilson v, Aug 01 2000

Keywords

• nonn

Crossrefs

Cf. A019529 and A002387.

Programs

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 *)