%I #15 Aug 26 2022 07:30:21
%S 1,1,2,2,2,1,2,2,2,2,2,2,1,1,2,1,2,1,1,2,1,1,1,2,2,2,2,2,2,2,2,1,1,1,
%T 1,2,1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,2,1,2,1,1,2,1,1,2,2,1,1,2,2,1,1,1,
%U 1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%N Leading digit of n! in base 3.
%H David A. Corneth, <a href="/A136754/b136754.txt">Table of n, a(n) for n = 0..9999</a>
%e a(10) = 2 as 10! = 20211100210000_3 which has leading digit 2. - _David A. Corneth_, Jan 15 2021
%t Table[First[IntegerDigits[n!,3]],{n,0,87}] (* _Stefano Spezia_, Aug 25 2022 *)
%o (PARI) a(n, {b = 3}) = my(f = n!); f \ b^logint(f, b) \\ _David A. Corneth_, Jan 10 2021
%Y Cf. A000142, A136690, A136755, A136756, A136757, A136758, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.
%K nonn,easy,base
%O 0,3
%A _Carl R. White_, Jan 21 2008
%E Missing a(0)=1 inserted by _David A. Corneth_, Jan 10 2021
|