login
Sum of a(n) terms of 1/k^(5/6) first exceeds n.
0

%I #2 Mar 30 2012 17:30:25

%S 1,2,4,8,15,28,48,79,126,194,290,422,602,841,1155,1561,2079,2733,3550,

%T 4562,5803,7314,9140,11330,13941,17035,20681,24956,29944,35735,42432,

%U 50143,58988,69097,80610,93679

%N Sum of a(n) terms of 1/k^(5/6) first exceeds n.

%t s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(5/6), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 35} ]

%Y Cf. A019529 and A002387.

%K nonn

%O 0,2

%A _Robert G. Wilson v_, Aug 01 2000