main@m=readLn>>=f>>m;f n=print$sum$map(^2)[1..n]