A183198 - OEIS

%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