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