OFFSET
1,9
LINKS
Winston de Greef, Table of n, a(n) for n = 1..10000
MATHEMATICA
A043282[n_]:=Max[Map[Length, Split[IntegerDigits[n, 8]]]]; Array[A043282, 100] (* Paolo Xausa, Sep 27 2023 *)
PROG
(PARI) A043282(n, b=8)={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
(Python)
from itertools import groupby
def A043282(n): return max(len(list(g)) for k, g in groupby(oct(n)[2:])) # Chai Wah Wu, Mar 09 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved