main=mapM print$filter f[1..2000]
f n|n<5=n<2|0<1=f$sum[read[x]^2|x<-show n]