program lacate;
  var n,l,c,i,j,k,p:longint;
      A:array[1..1000,1..1000] of longint;
  begin

    assign(input,'lacate.in'); reset(input);
    readln(n);
    assign(output,'lacate.out'); rewrite(output);
    writeln(N*(n-1)div 2,' ',n-1);
    for  i:=1 to n-1 do
      begin
      for j:=i to n-1 do begin inc(k); a[i,j]:=k end;
      for j:=i to n-1 do begin inc(p); a[j+1,i]:=p; end;
      end;
    for i:=1 to n do
     begin
      for j:=1 to n-1 do
        write(a[i,j],' ');
        writeln;
        end;
    close(output);
  end.