A043286 Maximal run length in base-12 representation of n.

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

Offset

1,13

Comments

For all numbers n in A023806, a(n)=1, but this holds also for others, e.g., n=145, not in A023806. The same relation holds for the terms of A113763 less than n=144, but becomes wrong from then on. - M. F. Hasler, Jul 24 2013

Links

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

Mathematica

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

Prog

(PARI) A043286(n, b=12){=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 - typos fixed by Antti Karttunen, Dec 06 2017

Crossrefs

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

Sequence in context: A345999 A249622 A287656 * A172098 A353801 A333254

Adjacent sequences: A043283 A043284 A043285 * A043287 A043288 A043289

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Dec 06 2017

Status

approved