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

Links

Table of n, a(n) for n=0..99.

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 *)

Prog

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

Crossrefs

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

Sequence in context: A300396 A300356 A082069 * A156775 A064693 A325614

Adjacent sequences: A136752 A136753 A136754 * A136756 A136757 A136758

Keyword

base,easy,nonn

Author

Carl R. White, Jan 21 2008

Status

approved