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