%I #13 Jun 30 2021 03:54:31
%S 18,81,108,128,138,148,158,168,178,180,182,183,184,185,186,187,189,
%T 198,218,281,318,381,418,481,518,581,618,681,718,781,801,810,812,813,
%U 814,815,816,817,819,821,831,841,851,861,871,891,918,981,1008,1028
%N Numbers whose base-10 representation has the same nonzero number of 1's and 8's.
%t Select[Range[1200],DigitCount[#,10,1]==DigitCount[#,10,8]>0&] (* _Harvey P. Dale_, Feb 04 2015 *)
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_
|