var fi,fo:text;
    n,L,C,i,j:longint;
    a:array[1..300,1..300]of longint;
begin
  assign(fi,'lacate.in'); reset(fi);
  assign(fo,'lacate.out'); rewrite(fo);
  read(fi,n);
  writeln(fo,n,' ',n-1);
  for i:=n-1 downto 1 do
    for j:=1 to n-i do
      a[i,j]:=j;
  for i:=n downto 2 do
    for j:=n-i+1 to n-1 do
      a[i,j]:=j+1;
  for i:=1 to n do
    begin
      for j:=1 to n-1 do
        write(fo,a[i,j],' ');
      writeln(fo);
    end;
  close(fi);
  close(fo);
end.