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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page