local ffi = require("ffi")
local C = ffi.C
ffi.cdef[[
long long atoll(const char*);
]]

local function lltonumber(str)
  return C.atoll(str)
end

local n, k = io.read():match("(%d+) (%d+)")
n = tonumber(n)
k = lltonumber(k)
k = k * 2LL
local t = {}
for i = 1, n do
  t[i] = 1LL * io.read("*n")
end
table.sort(t)
local ret = 0
local pos = n + 1
for i = 1, n do
  while 1 < pos and k <= t[pos - 1] * t[i] do
    pos = pos - 1
  end
  ret = ret + n + 1 - pos
end
print(ret)