l=[2..100] main=mapM print$1:[last[x|y<-1:l,x<-l,mod(2^x-2)x+n`mod`x^y<1]|n<-l]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page