A043288 - OEIS

%I #18 Sep 27 2023 10:07:16

%S 1,1,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,1,1,2,1,1,1,1,

%T 1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,

%U 1,1,1,1,1,1,2,1,1,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,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2

%N Maximal run length in base-14 representation of n.

%H Antti Karttunen, <a href="/A043288/b043288.txt">Table of n, a(n) for n = 1..65537</a>

%t A043288[n_]:=Max[Map[Length,Split[IntegerDigits[n,14]]]];Array[A043288,100] (* _Paolo Xausa_, Sep 27 2023 *)

%o (PARI) A043288(n,b=14)={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. A043276, A043277, A043278, A043279, A043280, A043281, A043282, A043283, A043284, A043285, A043286, A043287, A043289, A043290 for base-2 to base-16 analogs.

%K nonn,base

%O 1,15

%A _Clark Kimberling_

%E More terms from _Antti Karttunen_, Sep 21 2018