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 A037310 #21 Jun 21 2021 02:50:12 %S A037310 1,2,6,7,8,10,11,15,16,17,20,30,31,32,40,41,55,56,60,61,62,65,70,71, %T A037310 78,79,100,101,105,106,107,129,135,136,137,141,142,143,145,146,153, %U A037310 154,159,170,177,178,179,180,181,182,186,187,188 %N A037310 Numbers whose base-3 and base-5 expansions have the same digit sum. %C A037310 Also, numbers n such that the exponent of the largest power of 3 dividing n! is exactly twice the exponent of the largest power of 5 dividing n!. - _Ivan Neretin_, May 21 2015 %H A037310 Charles R Greathouse IV, <a href="/A037310/b037310.txt">Table of n, a(n) for n = 1..10000</a> %F A037310 A053735(a(n)) = A053824(a(n)). - _Robert Israel_, May 21 2015 %p A037310 select(t -> convert(convert(t,base,3),`+`)=convert(convert(t,base,5),`+`), [$1..1000]); # _Robert Israel_, May 21 2015 %t A037310 Select[Range[200],Total[IntegerDigits[#,3]]==Total[IntegerDigits[#,5]]&] (* _Harvey P. Dale_, Jun 06 2016 *) %o A037310 (PARI) is(n)=sumdigits(n,3)==sumdigits(n,5) \\ _Charles R Greathouse IV_, May 21 2015 %Y A037310 Cf. A037301 (similar, based upon 2 and 3). %Y A037310 Cf. A053735, A053824. %K A037310 nonn,base %O A037310 1,2 %A A037310 _Clark Kimberling_