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 A090105 #17 Dec 11 2020 07:36:20
%S A090105 1,1,2,2,4,3,6,6,7,8,10,5,12,6,12,8,16,14,18,19,20,20,22,23,23,24,25,
%T A090105 24,28,29,30,29,31,30,32,33,36,37,33,39,40,40,42,40,43,45,46,45,46,47,
%U A090105 49,51,52,51,54,55,56,56,58,59,60,60,61,63,62,64,66,67,68,65,70,67,72,71
%N A090105 Decimal value of largest digit of n! when it was written in base n.
%H A090105 Robert Israel, <a href="/A090105/b090105.txt">Table of n, a(n) for n = 1..10000</a>
%e A090105 For n=12: 12! = 114500000_12, so a(12) = 5.
%p A090105 f:= n -> max(convert(n!,base,n)): f(1):= 1:map(f, [$1..100]); # _Robert Israel_, Dec 09 2020
%t A090105 Table[Max[IntegerDigits[w!, w]], {w, 2, 100}]
%o A090105 (PARI) a(n) = if(n==1, 1, vecmax(digits(n!, n))) \\ _Felix Fröhlich_, Dec 09 2020
%Y A090105 Cf. A006993, A090104, A216377.
%K A090105 base,nonn
%O A090105 1,3
%A A090105 _Labos Elemer_, Dec 17 2003