A125552 - OEIS

%I #9 Sep 04 2015 10:27:14

%S 0,1,2,4,5,7,9,11,13,15,18,20,22,25,27,30,33,35,38,41,44,46,49,52,55,

%T 58,61,64,67,71,74,77,80,83,87,90,93,97,100,103,107,110,114,117,121,

%U 124,128,131,135,138,142,145,149,153,156,160,164,167,171

%N Maximal value of m such that 3^m <= n! : a(n) = floor( log(n!) / log(3) ).

%H Harvey P. Dale, <a href="/A125552/b125552.txt">Table of n, a(n) for n = 2..1000</a>

%t Floor[Log[3,Range[2,60]!]] (* _Harvey P. Dale_, Dec 10 2012 *)

%o (PARI) a(n)=lngamma(n+1)\log(3) \\ _Charles R Greathouse IV_, Sep 04 2015

%o (PARI) a(n)=logint(n!,3) \\ _Charles R Greathouse IV_, Sep 04 2015

%Y Cf. A127031, A127032, A127033, A127034, A127035, A127036, A127037, A127039.

%K nonn

%O 2,3

%A _Artur Jasinski_, Jan 03 2007

%E More terms from R. J. Mathar, Dec 14 2008