var
  a:array[1..200] of longint;
  b:array[1..10000] of integer;
  n,i,j,m:longint;
begin
  readln(n);
  a[1]:=2;
  if n<26 then
    begin
      for i:=2 to n do a[i]:=a[i-1]*2+2;
      writeln(a[n]);
    end
  else
    begin
      b[1]:=2; b[2]:=6; b[3]:=8; b[4]:=8; b[5]:=0; b[6]:=1; b[7]:=7; b[8]:=6;
      m:=8;
      for i:=26 to n do
        begin
          for j:=1 to m do b[j]:=b[j]*2;
          b[1]:=b[1]+2;
          for j:=1 to m do
            begin
              b[j+1]:=b[j] div 10+b[j+1];
              b[j]:=b[j] mod 10;
            end;
          inc(m);
        end;
      while b[m]=0 do dec(m);
      for i:=m downto 1 do write(b[i]);
    end;
end.
/**************************************************************
	Problem: 2271
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/