login
A043285
Maximal run length in base 11 representation of n.
4
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
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
KEYWORD
nonn,base
EXTENSIONS
More terms from Antti Karttunen, Nov 20 2017
STATUS
approved