login
Maximal digit in base-5 expansion of n.
1

%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