|
%I #13 Jun 30 2021 03:54:54
%S 80,108,180,208,280,308,380,408,480,508,580,608,680,708,780,801,802,
%T 803,804,805,806,807,809,810,820,830,840,850,860,870,890,908,980,1018,
%U 1028,1038,1048,1058,1068,1078,1081,1082,1083,1084,1085,1086,1087
%N Numbers whose base-10 representation has the same nonzero number of 0's and 8's.
%t Select[Range[1100],DigitCount[#,10,8]==DigitCount[#,10,0]>0&] (* _Harvey P. Dale_, Jan 13 2017 *)
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
