A043282 Maximal run length in base 8 representation of n.

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

Offset

1,9

Links

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

Mathematica

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

Prog

(PARI) A043282(n, b=8)={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
(Python)
from itertools import groupby
def A043282(n): return max(len(list(g)) for k, g in groupby(oct(n)[2:])) # Chai Wah Wu, Mar 09 2023

Crossrefs

Cf. A007094 (base 8).

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

Sequence in context: A139553 A078379 A121657 * A031226 A031242 A340102

Adjacent sequences: A043279 A043280 A043281 * A043283 A043284 A043285

Keyword

nonn,base

Author

Clark Kimberling

Status

approved