A190593 Maximal digit in base-4 expansion of n.

0, 1, 2, 3, 1, 1, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 1, 1, 2, 3, 1, 1, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 2, 3, 1, 1, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 1, 1, 2, 3, 1, 1, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2

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

Cf. A007090, A054055.

Sequence in context: A065882 A276327 A007884 * A276336 A212811 A338854

Adjacent sequences: A190590 A190591 A190592 * A190594 A190595 A190596

Keyword

base,nonn

Author

N. J. A. Sloane, May 13 2011

Status

approved