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 A037316 #25 Jun 21 2021 02:48:36 %S A037316 1,2,3,28,29,40,41,42,43,52,53,54,76,77,78,79,90,91,100,101,102,103, %T A037316 115,136,137,138,139,160,161,162,163,188,189,210,211,236,237,238,239, %U A037316 270,271,280,281,282,283,295,305,306,307,330,331 %N A037316 Numbers whose base-4 and base-5 expansions have the same digit sum. %H A037316 Robert Israel, <a href="/A037316/b037316.txt">Table of n, a(n) for n = 1..10000</a> %p A037316 filter:= n -> convert(convert(n,base,4),`+`)=convert(convert(n,base,5),`+`): %p A037316 select(filter, [$1..1000]); # _Robert Israel_, Mar 11 2018 %t A037316 Select[Range[400],Total[IntegerDigits[#,4]]==Total[IntegerDigits[#,5]]&] (* _Harvey P. Dale_, Sep 15 2018 *) %o A037316 (PARI) isok(k) = sumdigits(k, 4) == sumdigits(k, 5); \\ _Michel Marcus_, Jun 02 2021 %Y A037316 Cf. A053737 (base-4 sum of digits), A053824 (base-5 sum of digits). %K A037316 nonn,base %O A037316 1,2 %A A037316 _Clark Kimberling_