A136754 Leading digit of n! in base 3.

1, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 0

Author

Carl R. White, Jan 21 2008

Keywords

• nonn
• easy
• base

Examples

			a(10) = 2 as 10! = 20211100210000_3 which has leading digit 2. - _David A. Corneth_, Jan 15 2021
		

Links

• David A. Corneth, Table of n, a(n) for n = 0..9999

Crossrefs

Cf. A000142, A136690, A136755, A136756, A136757, A136758, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.

Programs

Mathematica

Table[First[IntegerDigits[n!,3]],{n,0,87}] (* Stefano Spezia, Aug 25 2022 *)

PARI

a(n, {b = 3}) = my(f = n!); f \ b^logint(f, b) \\ David A. Corneth, Jan 10 2021

Extensions

Missing a(0)=1 inserted by David A. Corneth, Jan 10 2021