l=[2..100]
main=mapM print$1:[last[x|y<-1:l,x<-l,mod(2^x-2)x+n`mod`x^y<1]|n<-l]