var
  s:array[1..100,1..100]of integer;
  i,j,n,m,k,l:integer;
begin
  while not seekeof do
  begin
  readln(n);m:=1;
  for l:=1 to n do
    begin
      i:=l;j:=1;
      for k:=1 to l do
        begin
          s[i,j]:=m;inc(m);
          dec(i);inc(j);
        end;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n-i do write(s[i,j],' ');
      writeln(s[i,n-i+1]);
    end;
  end;
end.