login
A190600
Maximal digit in base-12 expansion of n.
2
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 2, 2, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 3, 3, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 4, 4, 4, 4, 4, 5, 6, 7, 8, 9, 10, 11, 5, 5, 5, 5, 5, 5, 6, 7, 8, 9, 10, 11, 6, 6, 6, 6, 6, 6, 6, 7, 8, 9, 10, 11, 7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 10, 11, 8, 8, 8, 8, 8
OFFSET
0,3
LINKS
Eric Weisstein's World of Mathematics, Duodecimal
Wikipedia, Duodecimal
MATHEMATICA
Max[#]&/@IntegerDigits[Range[0, 100], 12] (* Harvey P. Dale, Apr 01 2020 *)
PROG
(Haskell)
import Numeric (showIntAtBase)
import Data.Char (intToDigit, digitToInt)
a190600 = digitToInt . maximum . flip (showIntAtBase 12 intToDigit) ""
-- Reinhard Zumkeller, May 14 2011
(PARI) a(n) = if (n, vecmax(digits(n, 12)), 0); \\ Michel Marcus, Jul 19 2020
CROSSREFS
Cf. A054055.
Sequence in context: A131232 A297238 A010881 * A053832 A345672 A322094
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 13 2011
STATUS
approved