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 A037315 #20 Jun 21 2021 02:50:31 %S A037315 1,2,21,22,23,40,41,80,111,112,113,132,133,134,150,151,152,204,205, %T A037315 206,222,223,224,312,313,314,350,420,421,422,440,510,511,512,530,600, %U A037315 601,602,800,1014,1015,1016,1032,1033,1034,1070,1140 %N A037315 Numbers whose base-3 and base-10 expansions have the same digit sum. %C A037315 A007953(a(n)) = A053735(a(n)); A180019(a(n)) = 0. -_Reinhard Zumkeller_, Aug 06 2010 %H A037315 Robert Israel, <a href="/A037315/b037315.txt">Table of n, a(n) for n = 1..10000</a> %p A037315 filter:= n -> convert(convert(n,base,3),`+`)=convert(convert(n,base,10),`+`): %p A037315 select(filter, [$1..10000]); # _Robert Israel_, Mar 11 2018 %t A037315 Select[Range[1200],Total[IntegerDigits[#]]==Total[IntegerDigits[#,3]]&] (* _Harvey P. Dale_, May 11 2018 *) %o A037315 (PARI) isok(n) = sumdigits(n, 3) == sumdigits(n, 10); \\ _Michel Marcus_, Mar 12 2018 %Y A037315 Cf. A007953, A053735, A180019. %K A037315 nonn,base,look %O A037315 1,2 %A A037315 _Clark Kimberling_