var f1,f2:text; n,x,i,j,p:longint; a:array[1..1000,1..1000] of integer;
begin
        assign(f1,'lacate.in');
        reset(f1);
        assign(f2,'lacate.out');
        rewrite(f2);
        read(f1,n);
        x:=n*(n-1) div 2;
        writeln(f2,x,' ',n-1);
        for i:=1 to n-1 do
                for j:=i to n-1 do begin
                        inc(p); a[i,j]:=p; end;
        p:=0;
        for i:=2 to n do
                for j:=1 to i-1 do begin
                        inc(p); a[i,j]:=p; end;
        for i:=1 to n do begin
        for j:=1 to n-1 do write(f2,a[i,j],' ');
        writeln(f2);
        end;
        close(f1);
        close(f2);
end.