login
A183197
Least integer k such that Floor(k*(n+1)^(1/3))>k*n^(1/3).
1
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
MATHEMATICA
Table[k=1; While[Floor[k*(n+1)^(1/3)]<=k*n^(1/3), k++]; k, {n, 100}]
CROSSREFS
Sequence in context: A247847 A076576 A332558 * A245459 A001368 A197224
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 29 2010
STATUS
approved