program TaskI;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

begin
   Readln(n);
   if n >= 5 then
   begin
      Setlength(A, n, n);
      Setlength(B, n, n);
      Setlength(C, n, n);
      n := n - 1;
      k := 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 := 0;
      z := True;
      for i := n downto 0 do
      begin
         for j := 0 to n do
            C[i, j] := B[k, j];
         if z then
         begin
            k := k + 3;
            z := False;
         end
         else
         begin
            k := k - 2;
            z := True;
         end;
      end;
      for i := 0 to n do
      begin
         for j := 0 to n do
            Write(c[i, j], ' ');
         Writeln;
      end;
   end
   else
      if n = 4 then
      begin
         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
            Writeln(1)
         else
            Writeln(-1);
end.