A bit of a digital XOR
Wolfram Language (Mathematica), 72 bytes

Pick[Flatten[(i=IntegerDigits)/@Table[#,s=Length[p=#~i~2]]][[;;s]],p,1]&amp;


Try it online!    

Here is the plot of the first 30.000 such numbers

    

And here is the Logarithmic plot