program Shedevr;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   N, i, j, k: Word;
   A, B, C: Array of Array of Word;
   Check : Boolean;

begin
   Readln(n);
   if (n >= 5) then
   begin
      Writeln(n);
      Setlength(A, n, n);
      Setlength(B, n, n);
      Setlength(C, n, n);
      n := n - 1;
      k := 1;
      Check := odd(n+1);
      for i := 0 to n do
         for j := 0 to n do
         begin
            A[i, j] := k;
            Inc(k);
         end;
      for i := 0 to n do
      begin
         k := 1;
         for j := 0 to n do
         begin
            B[i, j] := A[i, k];
            if (k = n - 1) or (k = n) then
               k := 0
            else
               k := k + 2;
         end;
      end;
      k := n;

      for i := 0 to n do
      begin
         for j := 0 to n do
            C[k, j] := B[i, j];
         if Check then
         begin
            if k = 0 then
               k := n-1
            else
               k := k - 2;
         end
         else
         begin
            if k = 1 then
               k := n-1
            else
               k := k - 2;
         end;
      end;
      for i := 0 to n do
      begin
         for j := 0 to n do
            Write(C[i, j], #9);
         Writeln;
      end;
   end
   else
      if n = 4 then
      begin
         Writeln(n);
         Writeln('14 16 13 15');
         Writeln('6 8 5 7');
         Writeln('10 12 9 11');
         Writeln('2 4 1 3');
      end
      else
         if n = 1 then
         begin
            Writeln(1);
            Writeln(1);
         end
         else
            Writeln(-1);
end.