var n:byte;
i,j,ind1,ind2:integer;
f:text;
begin
assign(f,'lacate.in');reset(f);
read(f,n);
close(f);
assign(f,'lacate.out');rewrite(f);
writeln(f,n*(n-1) div 2,' ',n-1);
ind1:=1; ind2:=1;
for i:=1 to n do
    if i mod 2 =1 then
       begin
       for j:=1 to n-1 do
           begin
           write(f,ind1,' ');
           inc(ind1);
           end;
       writeln(f);
       end
          else
       if i mod 2 =0 then
          begin
          for j:=1 to n-1 do
              begin
              write(f,ind2,' ');
              inc(ind2);
              end;
          writeln(f);
          end;
close(f);
end.