|
%I #19 Sep 27 2023 10:07:08
%S 1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,
%T 1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,
%U 1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1
%N Maximal run length in base-12 representation of n.
%C For all numbers n in A023806, a(n)=1, but this holds also for others, e.g., n=145, not in A023806. The same relation holds for the terms of A113763 less than n=144, but becomes wrong from then on. - _M. F. Hasler_, Jul 24 2013
%H Antti Karttunen, <a href="/A043286/b043286.txt">Table of n, a(n) for n = 1..22621</a>
%t A043286[n_]:=Max[Map[Length,Split[IntegerDigits[n,12]]]];Array[A043286,100] (* _Paolo Xausa_, Sep 27 2023 *)
%o (PARI) A043286(n, b=12){=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 - typos fixed by _Antti Karttunen_, Dec 06 2017
%Y Cf. A043276-A043290 for base-2 to base-16 analogs.
%K nonn,base
%O 1,13
%A _Clark Kimberling_
%E More terms from _Antti Karttunen_, Dec 06 2017
|
