login
A190594
Maximal digit in base-5 expansion of n.
1
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
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
Sequence in context: A374724 A139458 A277543 * A338803 A104412 A195451
KEYWORD
base,nonn
AUTHOR
N. J. A. Sloane, May 13 2011
STATUS
approved