m@main=do n<-readLn;print$sum$map(^2)[1..n];m