local n = io.read("*n")
local t = {}
for i = 1, 8 do t[i] = 0 end
for i = 1, n do
  local a = io.read("*n")
  t[a] = t[a] + 1
end
local ans = 0LL
for i = 1, 8 do for j = 1, 8 do
  local v = 1
  for k = 1, j do
    v = v * i
  end
  ans = ans + 1LL * t[i] * t[j] * v
end end
ans = tostring(ans):gsub("LL", "")
print(ans)