OFFSET
0,3
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
MATHEMATICA
Map[Max, IntegerDigits[Range[0, 100], 4]] (* Paolo Xausa, May 03 2024 *)
PROG
(PARI) a(n) = if (n, vecmax(digits(n, 4)), 0); \\ Michel Marcus, Jul 19 2020
CROSSREFS
KEYWORD
base,nonn
AUTHOR
N. J. A. Sloane, May 13 2011
STATUS
approved