for(i,1,2e3,k:=9;j:=i;while(k>6,k=0;while(j>0,k=k+(j%10)**2;j=j/10|0);j=k)>1or i println)