var x:array[0..1000000] of byte;
     n:integer;


procedure f; // создаем функцию для постоянного использования, как раба
var i,papich,ban:integer;
begin
 papich:=0;
 for i:=1 to n do
  begin
   ban:=x[i]*2+papich; // деление столбиком
   x[i]:=ban mod 10;
   papich:=ban div 10;
  end;
 if papich>0 then
  begin
   n:=n + 1;
   x[n]:=papich;
  end;
end;

var a,i:integer; // тело программы
begin
 readln(a);
 n:=1;
 x[1]:=1;
 for i:=1 to a do
  f;
 for i:=n downto 1 do
  write(x[i]);
 writeln;
end.