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

readln;
end.