m n=2^(n-1)`mod`n==1 main=mapM_ putStrLn[tail$init$show(p-2,p)|p<-5:[1,7..2000],m p,m$p-2,p/=1105]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page