import Data.List main=mapM print$take 511$sort$nub[x^y|x<-[2..447],y<-[2..17]]