var n,l,c,i,nr,j : longint;
    f,g : text;
    a : array[0..300,0..300] of integer;
    lg : array[0..300] of integer;
begin
assign(f,'lacate.in');reset(f);
assign(g,'lacate.out');rewrite(g);
read(f,n);
l:=n*(n-1)div 2;
if n>2 then
begin
writeln(g,l,' ',n-1);
for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
    inc(nr);
    inc(lg[i]);
    a[i,lg[i]]:=nr;
    inc(lg[j]);
    a[j,lg[j]]:=nr;
  end;
for i:=1 to n do
begin
  for j:=1 to n-1 do
    write(g,a[i,j],' ');
  writeln(g);
end;
end
 else
 begin
   writeln(g,'1 1');
   writeln(g,'1');
   writeln(g,'1');
 end;
close(g);
end.