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 ;
     writeln (r);
     readln ;
end.