import Control.Monad
import Data.List
import Data.Array
import Data.Array.IO
import Data.IORef

main :: IO ()
main = do
  n <- readLn :: IO Int
  a <- newArray ((0,0), (n-1,n-1)) 0 :: IO (IOUArray (Int, Int) Int)
  k <- newIORef 1 :: IO (IORef Int)
  let m = n `div` 2
  forM_ [0..m-1] $ \i -> do
    forM_ [0..m-1] $ \j -> do
      readIORef k >>= writeArray a (i,j)
      succ <$> readIORef k >>= writeIORef k
      readIORef k >>= writeArray a (i+m,j+m)
      succ <$> readIORef k >>= writeIORef k
  forM_ [0..m-1] $ \i -> do
    forM_ [0..m-1] $ \j -> do
      readIORef k >>= writeArray a (i,m-1-j+m)
      succ <$> readIORef k >>= writeIORef k
      readIORef k >>= writeArray a (i+m,m-1-j)
      succ <$> readIORef k >>= writeIORef k
  forM_ [0..n-1] $ \i -> do
    forM_ [0..n-1] $ \j -> do
      show <$> readArray a (i,j) >>= putStr
      putChar ' '
    putStrLn ""