#!perl -pl $_*=(2*$_+1)/6*$_++