login
Count value of k in A104758.
0

%I #4 Mar 30 2012 18:40:01

%S 4,5,5,4,4,7,7,5,5,6,6,10,8,6,7,7,7,7,7,13,10,8,8,8,8,9,8,9,9,16,11,9,

%T 9,10,10,9,10,10,10,11,10,19,13,10,11,11,11,12,11,11,12,11,12,12,12,

%U 22,14,12,12,13,12,13,12,13,13,13,13,13,13,14,13,25,16,13,14,14,14,14,14,14

%N Count value of k in A104758.

%C A104758: the number of cubes m = k^3 such that n <= m <= (n+1)^2.

%t f[n_] := Floor[(n + 1)^(2/3)] - Floor[n^(1/3)] + If[ IntegerQ[n^(1/3)], 1, 0]; t = Table[ f[n], {n, 0, 867}]; Count[t, # ] & /@ Range[81]

%Y Cf. A104758.

%K nonn

%O 1,1

%A _Giovanni Teofilatto_ and _Robert G. Wilson v_, May 10 2005