1,1

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

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

Cf. A183162

Sequence in context: A084255 A247847 A076576 * A245459 A001368 A197224

Adjacent sequences: A183194 A183195 A183196 * A183198 A183199 A183200

nonn

Clark Kimberling, Dec 29 2010

approved