do1 i=1,1e4;k=log10(i+0.);1 if(popcnt(iany([(2**mod(i/10**j,10),j=0,k)]))==2)print'(i0)',i;end