%I #4 Mar 30 2012 18:57:12
%S 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,
%T 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,
%U 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
%N Least integer k such that Floor(k*(n+1)^(2/3))<k*n^(2/3).
%t Table[k=1; While[Floor[k*(n+1)^(2/3)]<=k*n^(2/3), k++]; k, {n,100}]
%Y Cf. A183197.
%K nonn
%O 1,1
%A _Clark Kimberling_, Dec 29 2010