login
Numbers whose base-4 and base-7 expansions have the same digit sum.
0

%I #10 Feb 17 2023 15:51:22

%S 1,2,3,8,9,10,11,21,22,23,28,29,30,31,35,42,43,52,53,54,55,60,61,62,

%T 70,71,77,78,79,91,100,101,102,103,108,109,110,111,112,113,114,115,

%U 120,121,122,123,148,149,150,151,156,157,158,159

%N Numbers whose base-4 and base-7 expansions have the same digit sum.

%t Select[Range[200],Total[IntegerDigits[#,4]]==Total[IntegerDigits[#,7]]&] (* _Harvey P. Dale_, Feb 17 2023 *)

%K nonn,base

%O 1,2

%A _Clark Kimberling_