%I A008905
%S A008905 1,1,2,6,2,1,7,5,4,3,3,3,4,6,8,1,2,3,6,1,2,5,1,2,6,1,4,1,3,8,2,8,2,
%T A008905 8,2,1,3,1,5,2,8,3,1,6,2,1,5,2,1,6,3,1,8,4,2,1,7,4,2,1,8,5,3,1,1,8,
%U A008905 5,3,2,1,1,8,6,4,3,2,1,1,1,8,7,5,4,3,3,2,2,2,1,1,1,1,1,1,1,1,9,9,9
%N A008905 Leading digit of n!.
%H A008905 T. D. Noe, <a href="b008905.txt">Table of n, a(n) for n=0..1000</a>
%H A008905 <a href="Sindx_Fa.html#factorial">Index entries for sequences related 
               to factorial numbers</a>
%t A008905 Do[ Print[ IntegerPart[ n!/10^Floor[ N[ Log[ 10, n! ], 12 ] ] ] ], {n, 
               0, 121} ]
%t A008905 and/or...a[n_]:=First[IntegerDigits[n! ]]; [From Vladimir Orlovsky (4vladimir(AT)gmail.com), 
               Dec 03 2008]
%Y A008905 Cf. A000966, A000142.
%Y A008905 Sequence in context: A010590 A049061 A082516 this_sequence A136760 A062539 
               A110218
%Y A008905 Adjacent sequences: A008902 A008903 A008904 this_sequence A008906 A008907 
               A008908
%K A008905 nonn,base,easy
%O A008905 0,3
%A A008905 Russ Cox (rsc(AT)swtch.com)