f:array[0..27] of longint;
a:array[0..26] of char;
c:char;
begin
fillchar(f,sizeof(f),0);
readln(n);
for i:=n downto 1 do
for j:=i+1 to n do f[i]:=f[i]+f[j];
inc(f[i]);
end;