for(i=1,100,p=1;while(p\10^abs(#Str(p)-#Str(i))!=i,p*=2);print(p))