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

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A007092.

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

Programs

Mathematica

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

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