A056181 Sum of a(n) terms of 1/k^(5/6) first exceeds n.
1, 2, 4, 8, 15, 28, 48, 79, 126, 194, 290, 422, 602, 841, 1155, 1561, 2079, 2733, 3550, 4562, 5803, 7314, 9140, 11330, 13941, 17035, 20681, 24956, 29944, 35735, 42432, 50143, 58988, 69097, 80610, 93679
Offset: 0
Keywords
Programs
-
Mathematica
s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(5/6), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 35} ]