|
%I #12 Mar 16 2023 12:22:57
%S 78,87,178,187,278,287,378,387,478,487,578,587,678,687,708,718,728,
%T 738,748,758,768,780,781,782,783,784,785,786,789,798,807,817,827,837,
%U 847,857,867,870,871,872,873,874,875,876,879,897,978,987,1078,1087
%N Numbers whose base-10 representation has the same nonzero number of 7's and 8's.
%t Select[Range[1100],DigitCount[#,10,7]==DigitCount[#,10,8]>0&] (* _Harvey P. Dale_, Mar 16 2023 *)
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
