%I #23 Sep 27 2023 07:44:49
%S 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,
%T 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,
%U 1,2,1,1,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,1,1,2
%N Maximal run length in base-9 representation of n.
%H Antti Karttunen, <a href="/A043283/b043283.txt">Table of n, a(n) for n = 1..66430</a>
%t A043283[n_]:=Max[Map[Length,Split[IntegerDigits[n,9]]]];Array[A043283,100] (* _Paolo Xausa_, Sep 27 2023 *)
%o (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
%Y Cf. A007095.
%Y Cf. A043276-A043290 for base-2 to base-16 analogs.
%Y Cf. A002452 (gives the positions of records, the first occurrence of each n).
%Y Cf. also A044940.
%K nonn,base
%O 1,10
%A _Clark Kimberling_
|