$w=++$i;print"$w ")for(;$w-$v=strrev($w);)$w=bcadd($w,$v);