N, K = gets.split.map(&:to_i)
A = gets.split.map(&:to_i).sort

ans = 0

A.each do |x|
  idx = N - (A.bsearch_index { |a| 2 * K <= a * x } || N)
  ans += idx
end

puts ans