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]