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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A007094, A054055.

Sequence in context: A346731 A255828 A277546 * A338881 A053843 A010886

Adjacent sequences: A190594 A190595 A190596 * A190598 A190599 A190600

Keyword

nonn,base

Author

N. J. A. Sloane, May 13 2011

Status

approved