A337736 The number of cubefull numbers (A036966) between the consecutive cubes n^3 and (n+1)^3.

0, 1, 1, 1, 1, 2, 1, 2, 1, 2, 0, 4, 2, 1, 3, 0, 3, 1, 2, 1, 3, 2, 0, 2, 5, 1, 3, 1, 1, 3, 3, 2, 1, 3, 1, 2, 2, 2, 1, 2, 2, 3, 6, 1, 1, 1, 4, 1, 1, 3, 3, 1, 3, 4, 1, 2, 3, 1, 2, 3, 2, 3, 2, 3, 3, 2, 1, 4, 2, 1, 1, 0, 7, 1, 1, 4, 3, 2, 2, 2, 3, 3, 2, 0, 4, 2, 4

Offset

1,6

Comments

For each k >= 0 the sequence of solutions to a(x) = k has a positive asymptotic density (Shiu, 1991).

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

P. Shiu, The distribution of cube-full numbers, Glasgow Mathematical Journal, Vol. 33, No. 3 (1991), pp. 287-295. See section 3, p. 291.

Formula

Asymptotic mean: lim_{m->oo} (1/m) Sum_{k=1..m} a(k) = A362974 - 1 = 3.659266... . - Amiram Eldar, May 11 2023

Example

a(2) = 1 since there is one cubefull number, 16 = 2^4, between 2^3 = 8 and 3^3 = 27.

Mathematica

cubQ[n_] := Min[FactorInteger[n][[;; , 2]]] > 2; a[n_] := Count[Range[n^3 + 1, (n + 1)^3 - 1], _?cubQ]; Array[a, 100]

Crossrefs

Cf. A000578, A036966, A119241, A337737, A362974.

Sequence in context: A230583 A197366 A245715 * A047885 A072731 A221169

Adjacent sequences: A337733 A337734 A337735 * A337737 A337738 A337739

Keyword

nonn

Author

Amiram Eldar, Sep 17 2020

Status

approved