main=mapM print[n|n<-z,notElem n[x+sum[read[a]|a<-show x]|x<-z]];z=[1..3000]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page