$j=++$i;$k-1||print"$i ")for(;($k/=10)||(4<$k=$j)|$j=0;$j+=$s*$s=$k%10);