import Data.List;main=mapM print$take 193$sort[y|x<-[2..997],y<-(x^)<$>[1..9],all((>0).mod x)[2..x-1]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page