<>; for(<>){ ($n,$i,$j,$a)=glob; ($i,$j)=($n-1-$j,$i),++$a until $j>=$i&&$j<$n-$i; print$i*($n-$i)*4+$a*($n-1-$i*2)+$j-$i,$/; }