N = $stdin.gets.to_i
L = $stdin.gets.split.map {|i| i.to_i }
Lsort = L.sort.reverse
Llen = L.length

cnt = 0
0.upto(Llen - 3) do |i|
  li = Lsort[i]
  (i + 1).upto(Llen - 2) do |j|
    lj = Lsort[j]
    next if li == lj
    (j + 1).upto(Llen - 1) do |k|
      lk = Lsort[k]
      next if lj == lk
      break if li >= lj + lk
      cnt += 1
    end
  end
end
puts cnt
