|
%I #9 Jun 21 2021 02:50:01
%S 1,21,58,59,106,107,126,127,154,155,203,246,247,252,253,366,367,378,
%T 379,394,395,414,415,444,445,462,463,492,493,498,499,504,505,539,637,
%U 688,689,707,736,737,756,757,798,799,847,882,883
%N Numbers whose base-2 and base-7 expansions have the same digit sum.
%t Select[Range[1000],Total[IntegerDigits[#,2]]==Total[IntegerDigits[#,7]]&] (* _Harvey P. Dale_, Nov 28 2018 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
