login
Final nonzero digit of n! in base 6.
14

%I #4 Sep 02 2015 11:06:50

%S 1,1,2,1,4,2,2,2,4,4,4,2,4,4,2,2,2,4,2,2,4,2,2,4,4,4,2,4,4,2,4,4,2,2,

%T 2,4,4,4,2,4,4,2,2,2,4,2,2,4,2,2,4,4,4,2,2,2,4,2,2,4,4,4,2,2,2,4,2,2,

%U 4,4,4,2,4,4,2,4,4,2,2,2,4,4,4,2,4,4,2,2,2,4,4,4,2,4,4,2,2,2,4,2

%N Final nonzero digit of n! in base 6.

%e 6! = 720 decimal = 3200 senary, so a(6) = 2.

%t nzd6[n_]:=Module[{c=IntegerExponent[n!,6]},IntegerDigits[n!,6] [[-(c+1)]]]; Array[nzd6,100,0] (* _Harvey P. Dale_, Sep 02 2015 *)

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

%K base,easy,nonn

%O 0,3

%A _Carl R. White_, Jan 16 2008