|
%I #14 Jun 21 2021 02:47:55
%S 1,2,3,4,5,45,46,47,84,85,86,87,88,89,126,127,128,129,130,131,168,169,
%T 170,210,211,212,213,214,215,246,247,248,249,250,251,324,325,326,327,
%U 328,329,369,370,371,408,409,410,411,412,413
%N Numbers whose base-6 and base-9 expansions have the same digit sum.
%t Select[Range[500],Total[IntegerDigits[#,6]]==Total[IntegerDigits[ #,9]]&] (* _Harvey P. Dale_, Jun 29 2011 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
