A106626 Count value of k in A104758.

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, 9, 10, 10, 9, 10, 10, 10, 11, 10, 19, 13, 10, 11, 11, 11, 12, 11, 11, 12, 11, 12, 12, 12, 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

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..80.

Mathematica

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]

Crossrefs

Cf. A104758.

Sequence in context: A165361 A197136 A320475 * A280191 A222703 A222587

Adjacent sequences: A106623 A106624 A106625 * A106627 A106628 A106629

Keyword

nonn

Author

Giovanni Teofilatto and Robert G. Wilson v, May 10 2005

Status

approved