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

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, 58, 61, 64, 67, 71, 74, 77, 80, 83, 87, 90, 93, 97, 100, 103, 107, 110, 114, 117, 121, 124, 128, 131, 135, 138, 142, 145, 149, 153, 156, 160, 164, 167, 171

Offset: 2

Author

Artur Jasinski, Jan 03 2007

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 2..1000

Crossrefs

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

Programs

Mathematica

Floor[Log[3,Range[2,60]!]] (* Harvey P. Dale, Dec 10 2012 *)

PARI

a(n)=lngamma(n+1)\log(3) \\ Charles R Greathouse IV, Sep 04 2015

PARI

a(n)=logint(n!,3) \\ Charles R Greathouse IV, Sep 04 2015

Extensions

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