A043284 Maximal run length in base-10 representation of n.

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

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Comments

The first term larger than 2 is a(111) = 3. - M. F. Hasler, Jul 21 2013

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

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

Cf. A030556-A030561, A030575-A030580 (related to base-6 run lengths).

Cf. A227186, A227188, A101211, A005811 (related to base-2 run lengths).

Programs

Mathematica

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

PARI

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

Formula

For n < 111, a(n) = 1 except for a(n) = 2 when n==0 (mod 11) or n = 100. - M. F. Hasler, Jul 21 2013

Extensions

Data completed up to a(100), first difference with A083230, by M. F. Hasler, Oct 18 2019