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

Links

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

Example

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

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

Crossrefs

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

Sequence in context: A207385 A306242 A118144 * A361199 A231168 A276830

Adjacent sequences: A136688 A136689 A136690 * A136692 A136693 A136694

Keyword

base,easy,nonn

Author

Carl R. White, Jan 16 2008

Status

approved