for(@s=0..998){print"$x,$v
"if$x+2==($v=$_*2+3);8while$s[$_+=$x=$v]&&=998}