login
A043283
Maximal run length in base-9 representation of n.
8
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2
OFFSET
1,10
LINKS
MATHEMATICA
A043283[n_]:=Max[Map[Length, Split[IntegerDigits[n, 9]]]]; Array[A043283, 100] (* Paolo Xausa, Sep 27 2023 *)
PROG
(PARI) A043283(n, b=9)={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. A007095.
Cf. A043276-A043290 for base-2 to base-16 analogs.
Cf. A002452 (gives the positions of records, the first occurrence of each n).
Cf. also A044940.
Sequence in context: A351352 A082586 A160094 * A127937 A250209 A280010
KEYWORD
nonn,base
STATUS
approved