OFFSET
1,1
MATHEMATICA
Select[Range[500], DigitCount[#, 2, 0]+3==DigitCount[#, 2, 1]&] (* Harvey P. Dale, Feb 02 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved