|
%I #5 Mar 30 2012 18:57:12
%S 4,3,2,3,4,6,1,13,7,5,4,3,5,7,2,9,5,3,7,4,5,6,7,9,14,1,28,14,10,8,6,5,
%T 9,4,7,13,3,8,5,7,11,2,17,9,7,5,8,11,3,10,7,4,9,5,11,6,7,8,10,12,16,
%U 24,1,49,25,17,13,10,9,8,7,6,11,5,9,4,15,7,10,16,3,14,8,13,5,7,9,11,15,27,2,17,11,9,7,12,5,8,11,14
%N Least integer k such that Floor(k*(n+1)^(1/3))>k*n^(1/3).
%t Table[k=1; While[Floor[k*(n+1)^(1/3)]<=k*n^(1/3), k++]; k,{n,100}]
%Y Cf. A183162
%K nonn
%O 1,1
%A _Clark Kimberling_, Dec 29 2010
|
