#include <bits/stdc++.h>
#define ll long long
#define all(x) x.begin(), x.end()
#define endl '\n'
using namespace std;
//*** Accepted Ya Diaa ***
//A is my love 'accepted'
//I hate you 'Run Time Error'
int IHateRecursion(int s,int e) {
if (s==e) {
return 1;
}
if (s>e) {
return 0;
}
return IHateRecursion(s+1,e)+IHateRecursion(s+2,e)+IHateRecursion(s+3,e);
}
//>=x&&<=y
ll count(vector<int>v,int x,int y) {
return (upper_bound(all(v),y)-lower_bound(all(v),x));
}
bool can(vector<int>&v,int n,int c,int mid) {
ll s=1,last=v[0];
for (int i=1;i<n;i++) {
if (v[i]-last>=mid) {
s+=1;
last=v[i];
if (s>=c) {
return true;
}
}
}
return s>=c;
}
void solve() {
ios::sync_with_stdio(false);
cin.tie(nullptr);
freopen("input.txt","r",stdin);
freopen("output.txt","w",stdout);
int n;cin>>n;
vector<int>v(n);
for (int i=0;i<n;i++) {
cin>>v[i];}
sort(all(v));
if (v[0]*2>=v[n-1]) {
cout<<0<<endl;
return;
}
int l=0,r=n-1;
int c=0;
while (l<=r) {
if (v[l]*2>=v[r]) {
break;
}
c++;
r--;
}
cout<<n-r-1<<endl;
}
int main() {
solve();
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CiNkZWZpbmUgbGwgbG9uZyBsb25nCiNkZWZpbmUgYWxsKHgpIHguYmVnaW4oKSwgeC5lbmQoKQojZGVmaW5lIGVuZGwgJ1xuJwp1c2luZyBuYW1lc3BhY2Ugc3RkOwovLyoqKiBBY2NlcHRlZCBZYSBEaWFhICoqKgovL0EgaXMgbXkgbG92ZSAnYWNjZXB0ZWQnCi8vSSBoYXRlIHlvdSAnUnVuIFRpbWUgRXJyb3InCmludCBJSGF0ZVJlY3Vyc2lvbihpbnQgcyxpbnQgZSkgewoJaWYgKHM9PWUpIHsKCQlyZXR1cm4gMTsKCX0KCWlmIChzPmUpIHsKCQlyZXR1cm4gMDsKCX0KCXJldHVybiBJSGF0ZVJlY3Vyc2lvbihzKzEsZSkrSUhhdGVSZWN1cnNpb24ocysyLGUpK0lIYXRlUmVjdXJzaW9uKHMrMyxlKTsKfQovLz49eCYmPD15CmxsIGNvdW50KHZlY3RvcjxpbnQ+dixpbnQgeCxpbnQgeSkgewoJcmV0dXJuICh1cHBlcl9ib3VuZChhbGwodikseSktbG93ZXJfYm91bmQoYWxsKHYpLHgpKTsKfQpib29sIGNhbih2ZWN0b3I8aW50PiZ2LGludCBuLGludCBjLGludCBtaWQpIHsKbGwgcz0xLGxhc3Q9dlswXTsKCWZvciAoaW50IGk9MTtpPG47aSsrKSB7CgkJaWYgKHZbaV0tbGFzdD49bWlkKSB7CgkJCXMrPTE7CgkJCWxhc3Q9dltpXTsKCQkJaWYgKHM+PWMpIHsKCQkJCXJldHVybiB0cnVlOwoJCQl9CgkJfQoJfQoJcmV0dXJuIHM+PWM7Cn0KCnZvaWQgc29sdmUoKSB7Cglpb3M6OnN5bmNfd2l0aF9zdGRpbyhmYWxzZSk7CgljaW4udGllKG51bGxwdHIpOwoJZnJlb3BlbigiaW5wdXQudHh0IiwiciIsc3RkaW4pOwoJZnJlb3Blbigib3V0cHV0LnR4dCIsInciLHN0ZG91dCk7CgkJaW50IG47Y2luPj5uOwoJCXZlY3RvcjxpbnQ+dihuKTsKCQlmb3IgKGludCBpPTA7aTxuO2krKykgewoJCQljaW4+PnZbaV07fQoJCXNvcnQoYWxsKHYpKTsKCQlpZiAodlswXSoyPj12W24tMV0pIHsKCQkJY291dDw8MDw8ZW5kbDsKCQkJcmV0dXJuOwoJCX0KCQlpbnQgbD0wLHI9bi0xOwoJCWludCBjPTA7CgkJd2hpbGUgKGw8PXIpIHsKCQkJaWYgKHZbbF0qMj49dltyXSkgewoJCQkJYnJlYWs7CgkJCX0KCQkJYysrOwoJCQlyLS07CgkJfQoJY291dDw8bi1yLTE8PGVuZGw7Cn0KaW50IG1haW4oKSB7CgoJc29sdmUoKTsKCn0=