program  domino;
var n,k,x,y :longint;
begin
readln (n);
for x:=0 to n do
begin
for y:=x to n do
begin
k:=k+(x+y);
end;
end;
write (k);
readln;
end.