OFFSET
1,1
MATHEMATICA
Table[k=1; While[Floor[k*(n+1)^(1/3)]<=k*n^(1/3), k++]; k, {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 29 2010
STATUS
approved