%I #10 Oct 27 2023 22:00:46
%S 1,2,3,4,6,8,10,12,15,17,20,23,25,28,32,35,38,41,45,49,52,56,60,64,68,
%T 72,76,81,85,89,94,98,103,108,113,117,122,127,132,138,143,148,153,159,
%U 164,170,175,181,187,192,198,204,210,216,222,228,234,240,247,253,259
%N Sum of a(n) terms of 1/k^(1/3) first exceeds n.
%t s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(1/3), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 75} ]
%Y Cf. A002387, A054043, A019529.
%K nonn
%O 0,2
%A _Asher Auel_, Apr 13 2000
%E Corrected and extended by _Robert G. Wilson v_, Aug 01 2000
%E Edited by _N. J. A. Sloane_, Jan 17 2009 at the suggestion of _R. J. Mathar_