var n,i,c,a:longint;
begin
read(n);
a:=1;
for i:=1 to n do 
begin
c:=a+c;
a:=a+2;
end;
write(c);
end.