$z=0|2+($_/21.335-2)/2**.5,print$z*($z+1)*(2*$z+1)/6,$/for<>