%I #6 Sep 21 2016 02:41:44
%S 1,1,2,6,8,8,13,11,8,8,15,5,12,12,8,8,8,8,3,9,4,4,8,8,12,12,8,8,14,6,
%T 4,12,8,8,11,1,4,4,8,8,4,4,8,8,2,10,12,4,12,12,8,8,2,10,12,4,14,14,12,
%U 4,7,11,10,6,8,8,11,1,4,4,8,8,4,4,8,8,10,2,12,4,4,4,8,8,6,14,4,12,2,2,4,12
%N Final nonzero digit of n! in base 16.
%e 6! = 720 decimal = 2D0 hexadecimal, so a(6) = 13.
%o (PARI) a(n) = {d = digits(n!, 16); k = #d; while (!d[k] && (k!=1), k--); d[k];} \\ _Michel Marcus_, Sep 21 2016
%Y Cf. A000142, A136690, A136691, A136692, A136693, A136694, A136695, A136696, A008904, A136697, A136698, A136699, A136700, A136701.
%K base,easy,nonn
%O 0,3
%A _Carl R. White_, Jan 16 2008