%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