%I #10 Jun 21 2021 02:49:57
%S 1,12,13,38,39,54,55,72,73,110,111,114,115,126,127,220,221,230,231,
%T 246,247,294,295,366,367,440,441,476,477,486,487,648,649,686,687,690,
%U 691,702,703,726,727,756,757,762,763,864,865,876
%N Numbers whose base-2 and base-6 expansions have the same digit sum.
%t Select[Range[1000],Total[IntegerDigits[#,2]]==Total[ IntegerDigits[ #,6]]&] (* _Harvey P. Dale_, Sep 19 2011 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_