%I #10 Jul 04 2021 18:26:42
%S 15,47,55,59,61,62,159,175,183,187,189,190,207,215,219,221,222,231,
%T 235,237,238,243,245,246,249,250,252,575,607,623,631,635,637,638,671,
%U 687,695,699,701,702,719,727,731,733,734,743,747
%N Numbers whose base-2 representation has 4 fewer 0's than 1's.
%t Select[Range[750],DigitCount[#,2,1]-DigitCount[#,2,0]==4&] (* _Harvey P. Dale_, Jan 28 2012 *)
%Y Cf. A007088.
%K nonn,base
%O 1,1
%A _Clark Kimberling_