var t:text;
    n,i,j,nc,r:longint;
    x:array[0..260] of byte;

begin
assign(t,'lacate.in'); reset(t);
read(t,n); close(t);
nc:=0;
r:=0;
assign(t,'lacate.out'); rewrite(t);
writeln(t,trunc(n*(n-1)/2),' ',n-1);
for i:=1 to n do
  begin
    for j:=1 to nc do
      begin
        write(t,x[j],' ');
        inc(x[j]);
      end;
    inc(nc);
    x[nc]:=r+1;
    for j:=nc to n-1 do
      begin
        inc(r);
        write(t,r,' ');
      end;
    writeln(t);
  end;
close(t);
end.