%I #6 May 15 2013 05:24:17
%S 1,2,5,8,12,17,22,27,32,38,44,50,56,63,69,76,83,90,98,105,112,120,128,
%T 136,144,152,160,168,176,185,193,202,210,219,228,237,245,254,263,273,
%U 282,291,300,310,319,328,338,347,357,367
%N Least m>0 such that n! <= (3/2)^m.
%H Clark Kimberling, <a href="/A214047/b214047.txt">Table of n, a(n) for n = 1..1000</a>
%e a(6) = 17 because (3/2)^16 < 6! <= (3/2)^17.
%t Table[m=1; While[n!>(3/2)^m, m++]; m, {n,1,100}]
%t Join[{1},With[{c=Log[3/2]},Table[Ceiling[Log[n!]/c],{n,2,50}]]] (* _Harvey P. Dale_, May 15 2013 *)
%Y Cf. A003070, A213857.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jul 18 2012
|