program lacate;
var f : text;
    n,i,j : byte;
    p,s : longint;
    a : array[1..256,1..256] of longint;
    t : boolean;

begin
    assign(f,'lacate.in'); reset(f);
    readln(f,n);
    close(f);

    s := 0;

    for i := 1 to n-1 do s := s+i;

    p := 1; t := true;
    for i := 1 to n-1 do
        for j := 1 to n do begin
            a[j,i] := p;
            t := not t;
            if t then p := p+1;
            end;

    assign(f,'lacate.out'); rewrite(f);
    writeln(f,s,' ',n-1);

    for i := 1 to n do begin
        for j := 1 to n-1 do
            write(f,a[i,j],' ');
        writeln(f);
        end;

    close(f);
end.