A190592 Maximal digit in base-3 expansion of n.

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

Offset

0,3

Links

Robert Israel, Table of n, a(n) for n = 0..10000

Formula

a(n) = 2 if n == 2 (mod 3), a(1)=1, otherwise a(n) = a(floor(n/3)). - Robert Israel, Aug 11 2017

a(n) = A054055(A007089(n)). - Felix Fröhlich, Aug 13 2017

Maple

[seq(max(convert(n, base, 3)), n=0..120)];

Mathematica

Join[{0}, gl[n_] := Module[{idn = IntegerDigits[n, 3]}, Max[idn]]; Array[gl, 100]] (* Vincenzo Librandi, Aug 12 2017 *)

Prog

(PARI) a(n) = if (n==0, 0, vecmax(digits(n, 3))); \\ Michel Marcus, Aug 12 2017

Crossrefs

Cf. A007089, A054055, A037897.

Sequence in context: A046081 A366417 A380561 * A062501 A182599 A183015

Adjacent sequences: A190589 A190590 A190591 * A190593 A190594 A190595

Keyword

nonn,base

Author

N. J. A. Sloane, May 13 2011, based on a suggestion from Marc LeBrun.

Status

approved