// 大きい辺が等しくなることも、あるんですね。
// セグ木あればできますね -> セグ木いらないやん -> やっぱいるやん、をしましたorz
#include <iostream>
#include <algorithm>
#include <atcoder/segtree>
#include <map>
#define rep(i, n) for(i = 0; i < n; i++)
#define int long long
using namespace std;
using namespace atcoder;

int op(int a, int b) { return a + b; }
int e() { return 0; }

int n;
int a[300000];
map<int, int> mp;
vector<int> sa;

signed main() {
	int i;

	cin >> n;
	rep(i, n) cin >> a[i];
	rep(i, n) mp[a[i]]++;
	rep(i, n) sa.push_back(a[i]);
	sort(sa.begin(), sa.end());
	sa.erase(unique(sa.begin(), sa.end()), sa.end());

	segtree<int, op, e> seg(sa.size());
	for (map<int, int>::iterator it = mp.begin(); it != mp.end(); it++) {
		int pos = lower_bound(sa.begin(), sa.end(), it->first) - sa.begin();
		seg.set(pos, it->second * (it->second - 1) / 2);
	}

	int ans = 0;
	rep(i, n) {
		int iter1 = lower_bound(sa.begin(), sa.end(), a[i] / 2 + 1) - sa.begin();
		int s = seg.prod(iter1, sa.size());
		s -= mp[a[i]] * (mp[a[i]] - 1) / 2;
		ans += s;
	}

	cout << ans << endl;
	return 0;
}