A190594 Maximal digit in base-5 expansion of n.

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, 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, 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

Offset: 0

Author

N. J. A. Sloane, May 13 2011

Keywords

• base
• nonn

Crossrefs

Cf. A007091, A054055.

Programs

Mathematica

Table[Max[IntegerDigits[n,5]],{n,0,120}] (* Harvey P. Dale, Nov 20 2012 *)

PARI

a(n) = if (n, vecmax(digits(n, 5)), 0); \\ Michel Marcus, Jul 19 2020