login
Sum of a(n) terms of 1/k^(1/3) first exceeds n.
3

%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_