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