var n:integer;
    f:array[0..500,0..500]of int64;
    i,j,k:integer;


    ans:int64;

begin
  assign(input,'runa.in');
  reset(input);
  assign(output,'runa.out');
  rewrite(output);

  readln(n);


  for i:=0 to n do
    f[0,i]:=1;
  for i:=1 to n do
    for j:=0 to i-1 do
      for k:=j+1 to i do
        f[i,j]:=f[i,j]+f[i-k,k];


  writeln(f[n,0]-1);




  close(input);
  close(output);



end.