cp's OEIS Frontend

A067086 a(n) = floor(Sum_{k=1..n} 1/k^(1/3)).

%I A067086 #12 Feb 22 2023 09:08:00
%S A067086 1,1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,9,9,9,10,10,10,11,11,12,12,12,13,13,
%T A067086 13,13,14,14,14,15,15,15,16,16,16,17,17,17,17,18,18,18,18,19,19,19,20,
%U A067086 20,20,20,21,21,21,21,22,22,22,22,23,23,23,23,24,24,24,24,25,25,25,25
%N A067086 a(n) = floor(Sum_{k=1..n} 1/k^(1/3)).
%H A067086 Harry J. Smith, <a href="/A067086/b067086.txt">Table of n, a(n) for n = 1..1000</a>
%e A067086 a(4) = floor(1 + 1/(2^(1/3)) + 1/(3^(1/3)) + 1/(4^(1/3))) = 3.
%t A067086 Table[ Floor[ Sum[1/k^(1/3), {k, 1, n} ]], {n, 1, 75} ]
%t A067086 Floor[Accumulate[1/CubeRoot[Range[80]]]] (* _Harvey P. Dale_, Feb 22 2023 *)
%o A067086 (PARI) { s=0; for (n=1, 1000, s+=1/n^(1/3); write("b067086.txt", n, " ", floor(s)) ) } \\ _Harry J. Smith_, May 12 2010
%Y A067086 Cf. A067085.
%K A067086 easy,nonn
%O A067086 1,3
%A A067086 _Amarnath Murthy_, Jan 07 2002
%E A067086 More terms from _Robert G. Wilson v_, Jan 09 2002