program domino;
var n,a,b,c : longint ;
begin
readln(n);
for a:=0 to n do
begin
for b:=a to n do
c:=c+a+b;
end;
writeln(c);
readln;
end.