A136691 Final nonzero digit of n! in base 4.

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

Offset: 0

Author

Carl R. White, Jan 16 2008

Keywords

• base
• easy
• nonn

Examples

			6! = 720 decimal = 23100 quartal, so a(6) = 1.
		

Links

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

Crossrefs

Cf. A000142, A136690, A136692, A136693, A136694, A136695, A136696, A008904, A136697, A136698, A136699, A136700, A136701, A136702.

Programs

Mathematica

nzd[n_]:=Module[{rd=RealDigits[n!,4][[1]]},If[Last[rd]!=0,Last[rd], Last[ Flatten[Most[Split[rd]]]]]]; Array[nzd,100,0] (* Harvey P. Dale, May 08 2014 *)