OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
For n=12: 12! = 114500000_12, so a(12) = 5.
MAPLE
f:= n -> max(convert(n!, base, n)): f(1):= 1:map(f, [$1..100]); # Robert Israel, Dec 09 2020
MATHEMATICA
Table[Max[IntegerDigits[w!, w]], {w, 2, 100}]
PROG
(PARI) a(n) = if(n==1, 1, vecmax(digits(n!, n))) \\ Felix Fröhlich, Dec 09 2020
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Dec 17 2003
STATUS
approved