p,*L=1,"6" while~p%401: x,*L=L;L+="6"+x,"7"+x if int(x)%p<1:print(x);p*=2;L=[x]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page