var a:qword;
i,n:longint;
begin
read(n);
for i:=1 to n do
a:=a+(i*i);
write(a);
end.
/**************************************************************
	Problem: 1553
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/