%I #10 Jul 19 2020 04:24:30
%S 0,1,2,3,4,1,1,2,3,4,2,2,2,3,4,3,3,3,3,4,4,4,4,4,4,1,1,2,3,4,1,1,2,3,
%T 4,2,2,2,3,4,3,3,3,3,4,4,4,4,4,4,2,2,2,3,4,2,2,2,3,4,2,2,2,3,4,3,3,3,
%U 3,4,4,4,4,4,4,3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4
%N Maximal digit in base-5 expansion of n.
%t Table[Max[IntegerDigits[n,5]],{n,0,120}] (* _Harvey P. Dale_, Nov 20 2012 *)
%o (PARI) a(n) = if (n, vecmax(digits(n, 5)), 0); \\ _Michel Marcus_, Jul 19 2020
%Y Cf. A007091, A054055.
%K base,nonn
%O 0,3
%A _N. J. A. Sloane_, May 13 2011