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