A043283 Maximal run length in base-9 representation of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2

Offset

1,10

Links

Antti Karttunen, Table of n, a(n) for n = 1..66430

Mathematica

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

Prog

(PARI) A043283(n, b=9)={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. A007095.

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

Cf. A002452 (gives the positions of records, the first occurrence of each n).

Cf. also A044940.

Sequence in context: A351352 A082586 A160094 * A127937 A250209 A280010

Adjacent sequences: A043280 A043281 A043282 * A043284 A043285 A043286

Keyword

nonn,base

Author

Clark Kimberling

Status

approved