main=mapM print[p|p<-[2..6^5],mod(3^p-3)p<1,all(`elem`"2357")$show p]