%I #6 Mar 16 2015 16:59:41
%S 1,2,3,6,10,15,22,31,42,56,71,90,112,137,165,197,233,272,317,365,419,
%T 477,541,610,685,766,853,946,1045,1152,1265,1386,1514,1650,1793,1945,
%U 2105,2274,2451,2637,2833,3038,3252,3477,3711,3956,4212,4478,4755,5043
%N Sum of a(n) terms of 1/k^(2/3) first exceeds n.
%t s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(2/3), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 75} ]
%t Flatten[Table[Position[Accumulate[Table[1/k^(2/3),{k,5100}]],_?(#>n&),{1}, 1],{n, 0,50}]] (* _Harvey P. Dale_, Mar 16 2015 *)
%Y Cf. A019529 and A002387.
%K nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 01 2000
|