var

n:1..18;

ans:longint;

procedure gc(l,m,a:longint);

begin

if l<>0 then

gc(l-1,m+1,a);

if m<>0 then

gc(l,m-1,a+1);

if a=n then

inc(ans);

end;

begin

readln(n);

ans:=0;

gc(n,0,0);

writeln(ans);

end.