A056179 Sum of a(n) terms of 1/k^(3/4) first exceeds n.
1, 2, 3, 7, 12, 20, 31, 46, 67, 94, 128, 170, 222, 285, 361, 452, 558, 682, 826, 991, 1179, 1394, 1637, 1909, 2215, 2556, 2935, 3354, 3817, 4327, 4885, 5496, 6163, 6889, 7676, 8530, 9453, 10449, 11521, 12674, 13911, 15237, 16656, 18171, 19787, 21509
Offset: 0
Keywords
Programs
-
Mathematica
s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(3/4), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 60} ]