|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|