read
perl -ple'$_=$_**2+1'|factor|sed s/.*://