login
A190595
Maximal digit in base-6 expansion of n.
2
0, 1, 2, 3, 4, 5, 1, 1, 2, 3, 4, 5, 2, 2, 2, 3, 4, 5, 3, 3, 3, 3, 4, 5, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 1, 1, 2, 3, 4, 5, 1, 1, 2, 3, 4, 5, 2, 2, 2, 3, 4, 5, 3, 3, 3, 3, 4, 5, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 2, 2, 2, 3, 4, 5, 2, 2, 2, 3, 4, 5, 2, 2, 2, 3, 4, 5, 3, 3, 3, 3, 4, 5, 4, 4, 4, 4, 4, 5, 5, 5, 5
OFFSET
0,3
MATHEMATICA
Map[Max, IntegerDigits[Range[0, 100], 6]] (* Paolo Xausa, May 03 2024 *)
PROG
(PARI) a(n) = if (n, vecmax(digits(n, 6)), 0); \\ Michel Marcus, Jul 19 2020
CROSSREFS
Sequence in context: A255826 A339256 A277544 * A338863 A280502 A276757
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 13 2011
STATUS
approved