This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A136754 #15 Aug 26 2022 07:30:21
%S A136754 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 A136754 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 A136754 1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%N A136754 Leading digit of n! in base 3.
%H A136754 David A. Corneth, <a href="/A136754/b136754.txt">Table of n, a(n) for n = 0..9999</a>
%e A136754 a(10) = 2 as 10! = 20211100210000_3 which has leading digit 2. - _David A. Corneth_, Jan 15 2021
%t A136754 Table[First[IntegerDigits[n!,3]],{n,0,87}] (* _Stefano Spezia_, Aug 25 2022 *)
%o A136754 (PARI) a(n, {b = 3}) = my(f = n!); f \ b^logint(f, b) \\ _David A. Corneth_, Jan 10 2021
%Y A136754 Cf. A000142, A136690, A136755, A136756, A136757, A136758, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.
%K A136754 nonn,easy,base
%O A136754 0,3
%A A136754 _Carl R. White_, Jan 21 2008
%E A136754 Missing a(0)=1 inserted by _David A. Corneth_, Jan 10 2021