|
%I #17 Sep 27 2023 07:33:58
%S 1,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,
%T 2,2,1,1,1,1,1,2,3,2,2,2,2,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,
%U 1,1,2,2,1,1,1,1,1,1,2,1,1,1,1,2,2,3,2,2,2,1
%N Maximal run length in base 6 representation of n.
%H Winston de Greef, <a href="/A043280/b043280.txt">Table of n, a(n) for n = 1..10000</a>
%t A043280[n_]:=Max[Map[Length,Split[IntegerDigits[n,6]]]];Array[A043280,100] (* _Paolo Xausa_, Sep 27 2023 *)
%o (PARI) A043280(n, b=6)={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. A007092.
%Y Cf. A043276-A043290 for base-2 to base-16 analogs.
%K nonn,base
%O 1,7
%A _Clark Kimberling_
|
