%I #17 Dec 11 2020 07:36:20
%S 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 24,28,29,30,29,31,30,32,33,36,37,33,39,40,40,42,40,43,45,46,45,46,47,
%U 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 Decimal value of largest digit of n! when it was written in base n.
%H Robert Israel, <a href="/A090105/b090105.txt">Table of n, a(n) for n = 1..10000</a>
%e For n=12: 12! = 114500000_12, so a(12) = 5.
%p f:= n -> max(convert(n!,base,n)): f(1):= 1:map(f, [$1..100]); # _Robert Israel_, Dec 09 2020
%t Table[Max[IntegerDigits[w!, w]], {w, 2, 100}]
%o (PARI) a(n) = if(n==1, 1, vecmax(digits(n!, n))) \\ _Felix Fröhlich_, Dec 09 2020
%Y Cf. A006993, A090104, A216377.
%K base,nonn
%O 1,3
%A _Labos Elemer_, Dec 17 2003
|