A043279 - OEIS

A043279

Maximal run length in base 5 representation of n.

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 3, 2, 2, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 3, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,6

LINKS

Winston de Greef, Table of n, a(n) for n = 1..10000

MATHEMATICA

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

PROG

(PARI) A043279(n, b=5)={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. A007091.

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