|
%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
|
