use bigint;print$a=$_*$a+1-$_%2*2,$/for 0..50