program Untitled;
var
   n, rj, i, j : longint;
begin
     readln ( n );
     for i := 0 to n do
     begin
          for j := i to n do
              rj := rj + i + j;
     end;
     writeln ( rj );
readln;
end.