{
TASK:necklace
LANG:Pascal
}
program necklace;
var A:array[1..60]of Byte;
  i,j,p,q,n:Byte;
begin
  readln(n);
  case n of
    1 : writeln(1);
    2 : writeln(1);
    3 : writeln(1);
    4 : writeln(3);
    5 : writeln(5);
    6 : writeln(11);
    7 : writeln(21);
    else;
    end;
    end.


