%I #2 Mar 30 2012 17:30:25
%S 1,2,4,9,19,39,77,143,259,452,767,1267,2043,3223,4986,7573,11311,
%T 16634,24114,34497,48744,68083,94072,128672,174333,234091,311692,
%U 411723,539773,702614,908407,1166943,1489914
%N Sum of a(n) terms of 1/k^(9/10) first exceeds n.
%t s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(9/10), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 32} ]
%Y Cf. A019529 and A002387.
%K nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 01 2000
|