A183198
Least integer k such that Floor(k*(n+1)^(2/3))
2, 1, 2, 3, 1, 2, 1, 4, 2, 3, 1, 2, 3, 1, 3, 2, 3, 1, 3, 2, 3, 1, 4, 2, 3, 1, 5, 3, 2, 3, 1, 4, 3, 2, 4, 1, 4, 2, 3, 4, 1, 4, 3, 2, 3, 1, 5, 3, 2, 3, 5, 1, 4, 3, 2, 3, 6, 1, 4, 3, 2, 3, 1, 7, 4, 3, 2, 3, 6, 1, 4, 3, 2, 3, 5, 1, 4, 3, 2, 3, 4, 1, 6, 4, 3, 2, 3, 5, 1, 5, 3, 2, 3, 4, 6, 1, 4, 3, 2, 3
Offset: 1
Keywords
Crossrefs
Cf. A183197.
Programs
-
Mathematica
Table[k=1; While[Floor[k*(n+1)^(2/3)]<=k*n^(2/3), k++]; k, {n,100}]