A183198 Least integer k such that Floor(k*(n+1)^(2/3))<k*n^(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,1

Links

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

Mathematica

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

Crossrefs

Cf. A183197.

Sequence in context: A094917 A082691 A280052 * A249160 A346913 A269970

Adjacent sequences: A183195 A183196 A183197 * A183199 A183200 A183201

Keyword

nonn

Author

Clark Kimberling, Dec 29 2010

Status

approved