($,$b)=@n=grep$_%$,@n,$b-$-2||print"$,$b
"for@n=2..2e3