var

n,s,i:longint;

begin

s:=0;

readln(n);

for i:=n downto 1 do begin

s:=s+i*i;

end;

writeln(s);

end.