A136755 a(n) = leading digit of n! in base 4.

1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 3, 1, 3, 1, 1, 2, 1, 3, 2, 1, 3, 2, 1, 1, 3, 2, 1, 1, 1, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 1, 1, 1, 2, 2, 3, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1

Offset: 0

Author

Carl R. White, Jan 21 2008

Keywords

• base
• easy
• nonn

Crossrefs

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

Programs

Mathematica

f[n_]:=First[IntegerDigits[n!,4]]; lst={};Do[AppendTo[lst,f[n]],{n,0,2*5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)

PARI

a(n) = digits(n!, 4)[1]; \\ Michel Marcus, Jan 27 2015