%I #21 Jun 21 2021 02:50:12
%S 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 78,79,100,101,105,106,107,129,135,136,137,141,142,143,145,146,153,
%U 154,159,170,177,178,179,180,181,182,186,187,188
%N Numbers whose base-3 and base-5 expansions have the same digit sum.
%C 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 Charles R Greathouse IV, <a href="/A037310/b037310.txt">Table of n, a(n) for n = 1..10000</a>
%F A053735(a(n)) = A053824(a(n)). - _Robert Israel_, May 21 2015
%p select(t -> convert(convert(t,base,3),`+`)=convert(convert(t,base,5),`+`), [$1..1000]); # _Robert Israel_, May 21 2015
%t Select[Range[200],Total[IntegerDigits[#,3]]==Total[IntegerDigits[#,5]]&] (* _Harvey P. Dale_, Jun 06 2016 *)
%o (PARI) is(n)=sumdigits(n,3)==sumdigits(n,5) \\ _Charles R Greathouse IV_, May 21 2015
%Y Cf. A037301 (similar, based upon 2 and 3).
%Y Cf. A053735, A053824.
%K nonn,base
%O 1,2
%A _Clark Kimberling_