program baskdfah;
var a:array[1..1000,1..1000] of integer;
    i,j,n,k:byte;
    f,g:text;   p:integer; x:longint;
begin
  assign(f,'tablete.in'); reset(f);
  read(f,n,k);
  close(f);
  assign(g,'tablete.out'); rewrite(g);
  for i:=1 to n do
    begin
      a[i,k]:=i*2;
    end;
  x:=1; p:=2;
  for i:=1 to n do
    begin
     for j:=1 to k-1 do
        repeat
          if x>n+N then p:=1;
          a[i,j]:=x;
          x:=x+p;
        until a[i,j]<>0;
     for j:=k+1 to n do
        repeat
          if x>n+n then p:=1;
          a[i,j]:=x;
           x:=x+p;
        until a[i,j]<>0  ;
   end;
 for i:=1 to n do
  begin
    for j:=1 to n do
       write(g,a[i,j],' ');
    writeln(g);
  end;
 close(g);
end.z