m@main=do x<-readLn;print$sum[y*y|y<-[1..x]];m