login
Numbers whose base-2 and base-6 expansions have the same digit sum.
0

%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_