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,3

Links

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

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A357574 A295556 A047893 * A185546 A066026 A112671

Adjacent sequences: A125549 A125550 A125551 * A125553 A125554 A125555

Keyword

nonn

Author

Artur Jasinski, Jan 03 2007

Extensions

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

Status

approved