var n:byte;
a:array[1..256,1..256] of integer;
i,j,ind:integer;
f:text;
begin
assign(f,'lacate.in');reset(f);
read(f,n);
close(f);
assign(f,'lacate.out');rewrite(f);
if n=1 then
begin
write(f,1,' ',1);
writeln(f);
writeln(f,1);
end
else begin
writeln(f,n*(n-1) div 2,' ',n-1);
a[1,1]:=1; ind:=1;
for i:=1 to n-1 do
    for j:=i to n-1 do
        begin
        a[i,j]:=ind;
        inc(ind);
        end;
ind:=1;
for j:=1 to n-1 do
    for i:=j+1 to n do
        begin
        a[i,j]:=ind;
        inc(ind);
        end;
for i:=1 to n do
    begin
    for j:=1 to n-1 do
        write(f,a[i,j],' ');
    writeln(f);
    end;
end;
close(f);
end.