A043280 Maximal run length in base 6 representation of n.

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

Offset

1,7

Links

Winston de Greef, Table of n, a(n) for n = 1..10000

Mathematica

A043280[n_]:=Max[Map[Length, Split[IntegerDigits[n, 6]]]]; Array[A043280, 100] (* Paolo Xausa, Sep 27 2023 *)

Prog

(PARI) A043280(n, b=6)={my(m, c=1); while(n>0, n%b==(n\=b)%b&&c++&&next; m=max(m, c); c=1); m} \\ M. F. Hasler, Jul 23 2013

Crossrefs

Cf. A007092.

Cf. A043276-A043290 for base-2 to base-16 analogs.

Sequence in context: A022931 A373217 A303825 * A030379 A030392 A165633

Adjacent sequences: A043277 A043278 A043279 * A043281 A043282 A043283

Keyword

nonn,base

Author

Clark Kimberling

Status

approved