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

Links

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

Example

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A160385 A076881 A355813 * A276788 A282625 A026498

Adjacent sequences: A136751 A136752 A136753 * A136755 A136756 A136757

Keyword

nonn,easy,base

Author

Carl R. White, Jan 21 2008

Extensions

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

Status

approved