A190595 Maximal digit in base-6 expansion of n.

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

Author

N. J. A. Sloane, May 13 2011

Keywords

• nonn
• base

Links

• Paolo Xausa, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A007092, A054055.

Programs

Mathematica

Map[Max, IntegerDigits[Range[0, 100], 6]] (* Paolo Xausa, May 03 2024 *)

PARI

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