A043285 Maximal run length in base 11 representation of n.

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

Offset

1,12

Links

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

Mathematica

(Max[Length/@Split[IntegerDigits[#, 11]]])&/@Range[90] (* Harvey P. Dale, Jun 04 2013 *)

Prog

(PARI) A043285(n, b=11){=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. A043276-A043290 for base-2 to base-16 analogs.

Sequence in context: A333254 A204162 A266227 * A353756 A245690 A146291

Adjacent sequences: A043282 A043283 A043284 * A043286 A043287 A043288

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Nov 20 2017

Status

approved