var
  h:array[0..16]of int64;
  i,j,n:longint;
function
  f(x:longint):int64;
  var
    i:longint;
  begin
    if h[x]<>0 then exit(h[x]);
    for i:=0 to x-1 do
      h[x]:=h[x]+f(i)*f(x-1-i);
    exit(h[x]);
  end;
begin
  readln(n);
  h[0]:=1;
  h[1]:=1;
  writeln(f(n));
end.