for((;++i<2000;));{
eval "for((j=$i;j>4;j=$"[ +\${j:{0..3}:1}**2 ']));{ j+=000;};[ $j = 1 ]&&echo '$i
}