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 A136764 #17 Jan 15 2021 16:31:04 %S A136764 1,1,2,6,1,8,3,1,1,9,6,5,4,4,4,4,5,6,8,10,1,1,2,4,7,13,1,3,6,1,2,4,10, %T A136764 1,4,11,2,5,1,2,8,1,5,1,3,11,2,9,2,7,1,7,1,7,2,7,2,9,2,11,3,1,4,1,7,2, %U A136764 11,3,1,6,2,11,4,1,8,3,1,6,2,1,6,2,1,6,2,1,7,3,1,9,4,2,13,6,3,1,9,4,2,1 %N A136764 a(n) = leading digit of n! in base 14. %H A136764 David A. Corneth, <a href="/A136764/b136764.txt">Table of n, a(n) for n = 0..9999</a> %e A136764 a(10) = 6 as 10! = 6106640_14 which has leading digit 6. - _David A. Corneth_, Jan 15 2021 %t A136764 f[n_]:=First[IntegerDigits[n!,14]]; lst={};Do[AppendTo[lst,f[n]],{n,0,2*5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009 *) %t A136764 Table[IntegerDigits[n!,14][[1]],{n,0,100}] (* _Harvey P. Dale_, Dec 24 2015 *) %o A136764 (PARI) a(n) = digits(n!, 14)[1]; \\ _Michel Marcus_, Jan 27 2015 %Y A136764 Cf. A000142, A136700, A136754, A136755, A136756, A136757, A136758, A136759, A136760, A008905, A136761, A136762, A136763, A136765, A136766. %K A136764 nonn,easy,base %O A136764 0,3 %A A136764 _Carl R. White_, Jan 21 2008