n = gets.to_i
pp = gets.split.map(&:to_i)

a = Array.new(n) {|i| Array.new(n) {|j| [i, j, n - i - 1, n - j - 1].min}}

dfs =->(x, y, i) {
    return if a[x][y] <= i
    a[x][y] -= 1
    i = a[x][y]

    dfs.(x + 1, y, i) if x < n - 1
    dfs.(x - 1, y, i) if x > 0
    dfs.(x, y + 1, i) if y < n - 1
    dfs.(x, y - 1, i) if y > 0
}

ans = 0
pp.each do |e|
    x, y = (e-1).divmod(n)
    ans += a[x][y] - 1
    i = a[x][y]
    dfs.(x + 1, y, i) if x < n - 1
    dfs.(x - 1, y, i) if x > 0
    dfs.(x, y + 1, i) if y < n - 1
    dfs.(x, y - 1, i) if y > 0
end

p ans