%I
%S 1,2,3,28,29,30,31,54,55,100,101,102,103,198,199,248,249,250,251,270,
%T 271,342,343,441,442,443,488,489,490,491,752,753,754,755,774,775,824,
%U 825,826,827,873,874,875,920,921,922,923,945
%N Numbers whose base4 and base9 expansions have the same digit sum.
%t Select[Range[1000],Total[IntegerDigits[#,4]]==Total[IntegerDigits[#,9]]&] (* _Harvey P. Dale_, Jun 23 2017 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
