This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A043287 #19 Sep 27 2023 10:06:27
%S A043287 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,2,1,1,1,1,1,1,
%T A043287 1,1,1,1,1,1,1,2,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,
%U A043287 1,2,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,2,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1
%N A043287 Maximal run length in base-13 representation of n.
%H A043287 Antti Karttunen, <a href="/A043287/b043287.txt">Table of n, a(n) for n = 1..65537</a>
%t A043287 A043287[n_]:=Max[Map[Length,Split[IntegerDigits[n,13]]]];Array[A043287,100] (* _Paolo Xausa_, Sep 27 2023 *)
%o A043287 (PARI) A043287(n,b=13)={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 A043287 Cf. A043276, A043277, A043278, A043279, A043280, A043281, A043282, A043283, A043284, A043285, A043286, A043288, A043289, A043290 for base-2 to base-16 analogs.
%K A043287 nonn,base
%O A043287 1,14
%A A043287 _Clark Kimberling_
%E A043287 More terms from _Antti Karttunen_, Sep 21 2018