Program cel;
Type matrice=array[1..255,1..255] of byte;
var f,g:text;
    a:matrice;
    n,i,j,x:longint;
Begin
Assign(f,'lacate.in');Reset(f);
Assign(g,'lacate.out');Rewrite(g);
Read(f,n);
Writeln(g,((n-1)*n) div 2,' ',n-1);
x:=1;
For i:=1 to n-1 do
 For j:=1 to n-i do
  Begin
   a[i,j]:=x;
   inc(x);
  end;
For i:=1 to n-1 do Write(g,a[1,i],' ');
Writeln(g);
For j:=1 to n-1 do
 Begin
  Write(g,a[1,j],' ');
  x:=2;
  For i:=j-1 downto 1 do
   Begin
    Write(g,a[x,i],' ');
    x:=x+1;
   end;
  For i:=1 to n-x do Write(g,a[x,i],' ');
  Writeln(g);
 end;
Close(f);
Close(g);
end.