A106626 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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