%I
%S 0,1,2,3,5,6,7,9,10,11,12,13,15,16,17,19,20,21,22,23,25,26,27,29,30,
%T 31,32,33,35,36,37,39,48,50,51,52,53,55,56,57,59,60,61,62,63,65,66,67,
%U 69,70,71,72,73,75,76,77,79,84,90,91,92,93,95,96,97,99,100,101,102
%N Numbers whose base10 representation has the same number of 4's and 8's.
%t Select[Range[0,200],DigitCount[#,10,4]==DigitCount[#,10,8]&] (* _Harvey P. Dale_, Mar 26 2021 *)
%K nonn,base,easy
%O 1,3
%A _Olivier GĂ©rard_
