main=mapM print[n|n<-z,notElem n[x+sum[read[a]|a<-show x]|x<-z]];z=[1..3000]