[go: up one dir, main page]

login
A056178
Sum of a(n) terms of 1/k^(2/3) first exceeds n.
0
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 01 2000
STATUS
approved