login
A190597
Maximal digit in base-8 expansion of n.
1
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
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
Sequence in context: A346731 A255828 A277546 * A338881 A053843 A010886
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 13 2011
STATUS
approved