A190597 Maximal digit in base-8 expansion of n.

0, 1, 2, 3, 4, 5, 6, 7, 1, 1, 2, 3, 4, 5, 6, 7, 2, 2, 2, 3, 4, 5, 6, 7, 3, 3, 3, 3, 4, 5, 6, 7, 4, 4, 4, 4, 4, 5, 6, 7, 5, 5, 5, 5, 5, 5, 6, 7, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 1, 1, 2, 3, 4, 5, 6, 7, 1, 1, 2, 3, 4, 5, 6, 7, 2, 2, 2, 3, 4, 5, 6, 7, 3, 3, 3, 3, 4, 5, 6, 7, 4, 4, 4, 4, 4, 5, 6, 7, 5

Offset: 0

Author

N. J. A. Sloane, May 13 2011

Keywords

• nonn
• base

Crossrefs

Cf. A007094, A054055.

Programs

Mathematica

Max[IntegerDigits[#,8]]&/@Range[0,110] (* Harvey P. Dale, Sep 05 2019 *)

PARI

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