m n=2^(n-1)`mod`n==1 main=mapM_(putStrLn.tail.init.show)[(p,p+2)|p<-[3..2000],m p,m$p+2,notElem p[643,645,561,1103,1905]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page