n = gets.to_i
p = gets.split.map &:to_i

idx = []

p.each_with_index{ |x, i| idx[x-1] = i }

keys = [idx[-1]]
count = 0

(idx.size - 2).downto(0){ |i|
	t_idx = keys.bsearch_index{ |x| x > idx[i] }
	t_idx = keys.size if t_idx == nil

	# 左の1個を含めた区間
	if t_idx >= 1 then
		l = 1
		r = 1

		if t_idx >= 2 then
			l = keys[t_idx - 1] - keys[t_idx - 2]
		else
			l = keys[t_idx - 1] + 1
		end
		
		if keys.size - 1 >= t_idx then
			r = keys[t_idx] - idx[i]
		else
			r = p.size - idx[i]
		end

		count += l * r * (i + 1)
	end

	# 右の1個を含めた区間
	if keys.size - 1 >= t_idx then
		l = 1
		r = 1

		if keys.size - 2 >= t_idx then
			r = keys[t_idx + 1] - keys[t_idx]
		else
			r = p.size - keys[t_idx]
		end
		
		if t_idx >= 1 then
			l = idx[i] - keys[t_idx - 1]
		else
			l = idx[i] + 1
		end

		count += l * r * (i + 1)
	end
	
	keys.insert(t_idx, idx[i])
}

puts count


