N, X = gets.split.map(&:to_i)
C = Array.new(10 ** 5 + 1, 0)

A = gets.split.map(&:to_i)
A.each do |a|
  C[a] += 1
end

ans = C.each_index.inject(0) do |s, i|
  break s if i > X - i
  next s unless X - i < C.size
  i == X - i ? (s + C[i] ** 2) : (s + C[i] * C[X - i] * 2)
end

puts ans