A043287 Maximal run length in base-13 representation of n.

1, 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, 1, 2, 1, 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, 1, 2, 1, 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, 1, 2, 1, 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, 1, 2, 1, 1, 1, 1, 1

Offset

1,14

Links

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

Mathematica

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

Prog

(PARI) A043287(n, b=13)={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, A043277, A043278, A043279, A043280, A043281, A043282, A043283, A043284, A043285, A043286, A043288, A043289, A043290 for base-2 to base-16 analogs.

Sequence in context: A057523 A083235 A307609 * A212177 A345999 A249622

Adjacent sequences: A043284 A043285 A043286 * A043288 A043289 A043290

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Sep 21 2018

Status

approved