main=mapM print[x|(x,"")<-mapM(:"2357")"    ">>=reads,mod(3^x-3)x<1]