var v:array[1..260,1..260]of longint;
    n,i,j,c,l,nr:Longint;
begin
assign(input,'lacate.in');reset(input);
assign(output,'lacate.out');rewrite(output);
readln(n);
c:=n*(n-1)div 2;
l:=n-1;
nr:=1;
for i:=1 to n do
        for j:=i to l do
                begin
                v[i,j]:=nr;
                v[j+1,i]:=nr;
                inc(nr);
                end;
writeln(c,' ',l);
for i:=1 to n do
        begin
        for j:=1 to l do
                write(v[i,j],' ');
        writeln;
        end;
close(input);close(output);
end.