var f,g:text;
    s,i,n,l:longint;
begin
assign(f,'patrate2.in');reset(f);
assign(g,'patrate2.out');rewrite(g);
readln(f,n);
s:=2;
if n>1 then begin
            i:=2;
            l:=1;
            while l<n*n do
                  begin
                  inc(l);
                  s:=s+i;
                  i:=i*2;
                  end;
            s:=s*2;
            end;
writeln(g,s);
close(f);
close(g);
end.