A183197 Least integer k such that Floor(k*(n+1)^(1/3))>k*n^(1/3).

4, 3, 2, 3, 4, 6, 1, 13, 7, 5, 4, 3, 5, 7, 2, 9, 5, 3, 7, 4, 5, 6, 7, 9, 14, 1, 28, 14, 10, 8, 6, 5, 9, 4, 7, 13, 3, 8, 5, 7, 11, 2, 17, 9, 7, 5, 8, 11, 3, 10, 7, 4, 9, 5, 11, 6, 7, 8, 10, 12, 16, 24, 1, 49, 25, 17, 13, 10, 9, 8, 7, 6, 11, 5, 9, 4, 15, 7, 10, 16, 3, 14, 8, 13, 5, 7, 9, 11, 15, 27, 2, 17, 11, 9, 7, 12, 5, 8, 11, 14

Offset

1,1

Links

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

Mathematica

 Table[k=1; While[Floor[k*(n+1)^(1/3)]<=k*n^(1/3), k++]; k, {n, 100}]

Crossrefs

Cf. A183162

Sequence in context: A247847 A076576 A332558 * A245459 A001368 A197224

Adjacent sequences: A183194 A183195 A183196 * A183198 A183199 A183200

Keyword

nonn

Author

Clark Kimberling, Dec 29 2010

Status

approved