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

Links

Table of n, a(n) for n=0..104.

Mathematica

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

Prog

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

Crossrefs

Cf. A007091, A054055.

Sequence in context: A374724 A139458 A277543 * A338803 A104412 A195451

Adjacent sequences: A190591 A190592 A190593 * A190595 A190596 A190597

Keyword

base,nonn

Author

N. J. A. Sloane, May 13 2011

Status

approved