#include <bits/stdc++.h>
using namespace std;
using ll = long long;
const int MOD = 1000000007;
const int MOD2 = 998244353;
const ll INF = 1e18;
const int MX = 1000001; //check the limits, dummy
ll modExp(ll base, ll power) {
if (power == 0) {
return 1;
} else {
ll cur = modExp(base, power / 2); cur = cur * cur; cur = cur % MOD;
if (power % 2 == 1) cur = cur * base;
cur = cur % MOD;
return cur;
}
}
ll inv(ll base) {
return modExp(base, MOD-2);
}
ll mul(ll A, ll B) {
return (A*B)%MOD;
}
ll add(ll A, ll B) {
return (A+B)%MOD;
}
ll dvd(ll A, ll B) {
return mul(A, inv(B));
}
ll sub(ll A, ll B) {
return (A-B+MOD)%MOD;
}
ll* facs = new ll[MX];
ll* facInvs = new ll[MX];
ll choose(ll a, ll b) {
if (b > a) return 0;
if (a < 0) return 0;
if (b < 0) return 0;
ll cur = facs[a];
cur = mul(cur, facInvs[b]);
cur = mul(cur, facInvs[a-b]);
return cur;
}
void initFacs() {
facs[0] = 1;
facInvs[0] = 1;
for (int i = 1 ; i < MX ; i ++ ) {
facs[i] = (facs[i-1] * i) % MOD;
facInvs[i] = inv(facs[i]);
}
}
int main() {
ios_base::sync_with_stdio(0); cin.tie(0);
int t ; cin >> t;
const int LIMIT = 6500000; // sieve up to ~6.5 million
const int TARGET = 400000; // need first 400 000 primes
vector<bool> is_composite(LIMIT+1, false);
vector<int> primes;
primes.reserve(TARGET);
is_composite[0] = is_composite[1] = true;
for (int x = 2; x <= LIMIT; x++) {
if (!is_composite[x]) {
primes.push_back(x);
if ((int)primes.size() == TARGET) break;
if ((long long)x * x <= LIMIT) {
for (int y = x * x; y <= LIMIT; y += x) {
is_composite[y] = true;
}
}
}
}
vector<ll> pref(primes.size() + 1,0);
for (int i = 0 ; i < primes.size() ; i ++) {
pref[i + 1] = pref[i] + primes[i];
}
while (t --) {
int n ; cin >> n;
vector<int> arr(n);
for (int i = 0 ; i < n; i ++) {
cin >> arr[i];
}
ll sum = 0;
for (int i = 0 ; i < n ; i ++ ) {
sum += arr[i];
}
sort(arr.begin(), arr.end(),greater<int>());
int res = 0;
int curr = n;
int p = n - 1;
while (pref[curr] > sum ) {
res ++;
sum -= arr[p];
p --;
curr --;
}
cout << res << endl;
}
return 0;
}
IAogICAgI2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CiAgICAKICAgIHVzaW5nIG5hbWVzcGFjZSBzdGQ7CgogICAgdXNpbmcgbGwgPSBsb25nIGxvbmc7CiAgICBjb25zdCBpbnQgTU9EID0gMTAwMDAwMDAwNzsgCiAgICBjb25zdCBpbnQgTU9EMiA9ICA5OTgyNDQzNTM7IAogICAgY29uc3QgbGwgSU5GID0gMWUxODsKICAgIGNvbnN0IGludCBNWCA9IDEwMDAwMDE7IC8vY2hlY2sgdGhlIGxpbWl0cywgZHVtbXkKCgogICAgbGwgbW9kRXhwKGxsIGJhc2UsIGxsIHBvd2VyKSB7CiAgICAgICAgaWYgKHBvd2VyID09IDApIHsKICAgICAgICAgICAgcmV0dXJuIDE7CiAgICAgICAgfSBlbHNlIHsKICAgICAgICAgICAgbGwgY3VyID0gbW9kRXhwKGJhc2UsIHBvd2VyIC8gMik7IGN1ciA9IGN1ciAqIGN1cjsgY3VyID0gY3VyICUgTU9EOwogICAgICAgICAgICBpZiAocG93ZXIgJSAyID09IDEpIGN1ciA9IGN1ciAqIGJhc2U7CiAgICAgICAgICAgIGN1ciA9IGN1ciAlIE1PRDsKICAgICAgICAgICAgcmV0dXJuIGN1cjsKICAgICAgICB9CiAgICB9CgogICAgbGwgaW52KGxsIGJhc2UpIHsKICAgICAgICByZXR1cm4gbW9kRXhwKGJhc2UsIE1PRC0yKTsKICAgIH0KCgogICAgbGwgbXVsKGxsIEEsIGxsIEIpIHsKICAgICAgICByZXR1cm4gKEEqQiklTU9EOwogICAgfQoKICAgIGxsIGFkZChsbCBBLCBsbCBCKSB7CiAgICAgICAgcmV0dXJuIChBK0IpJU1PRDsKICAgIH0KICAgIAogICAgbGwgZHZkKGxsIEEsIGxsIEIpIHsKICAgICAgICByZXR1cm4gbXVsKEEsIGludihCKSk7CiAgICB9CgogICAgbGwgc3ViKGxsIEEsIGxsIEIpIHsKICAgICAgICByZXR1cm4gKEEtQitNT0QpJU1PRDsKICAgIH0KCiAgICBsbCogZmFjcyA9IG5ldyBsbFtNWF07CiAgICBsbCogZmFjSW52cyA9IG5ldyBsbFtNWF07CgogICAgbGwgY2hvb3NlKGxsIGEsIGxsIGIpIHsKICAgICAgICBpZiAoYiA+IGEpIHJldHVybiAwOwogICAgICAgIGlmIChhIDwgMCkgcmV0dXJuIDA7CiAgICAgICAgaWYgKGIgPCAwKSByZXR1cm4gMDsKICAgICAgICBsbCBjdXIgPSBmYWNzW2FdOwogICAgICAgIGN1ciA9IG11bChjdXIsIGZhY0ludnNbYl0pOwogICAgICAgIGN1ciA9IG11bChjdXIsIGZhY0ludnNbYS1iXSk7CiAgICAgICAgcmV0dXJuIGN1cjsKICAgIH0KCiAgICB2b2lkIGluaXRGYWNzKCkgewogICAgICAgIGZhY3NbMF0gPSAxOyAKICAgICAgICBmYWNJbnZzWzBdID0gMTsKICAgICAgICBmb3IgKGludCBpID0gMSA7IGkgPCBNWCA7IGkgKysgKSB7CiAgICAgICAgICAgIGZhY3NbaV0gPSAoZmFjc1tpLTFdICogaSkgJSBNT0Q7CiAgICAgICAgICAgIGZhY0ludnNbaV0gPSBpbnYoZmFjc1tpXSk7CiAgICAgICAgfQogICAgfQogICAgaW50IG1haW4oKSAgewogICAgICAgIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oMCk7IGNpbi50aWUoMCk7ICAKICAgICAgICBpbnQgdCA7IGNpbiA+PiB0OyAKICAgICAgICBjb25zdCBpbnQgTElNSVQgPSA2NTAwMDAwOyAgICAgICAgICAgICAgLy8gc2lldmUgdXAgdG8gfjYuNSBtaWxsaW9uCiAgICAgICAgY29uc3QgaW50IFRBUkdFVCA9IDQwMDAwMDsgICAgICAgICAgICAgIC8vIG5lZWQgZmlyc3QgNDAw4oCJMDAwIHByaW1lcwogICAgICAgIAogICAgICAgIHZlY3Rvcjxib29sPiBpc19jb21wb3NpdGUoTElNSVQrMSwgZmFsc2UpOwogICAgICAgIHZlY3RvcjxpbnQ+IHByaW1lczsKICAgICAgICAKICAgICAgICBwcmltZXMucmVzZXJ2ZShUQVJHRVQpOwogICAgICAgIGlzX2NvbXBvc2l0ZVswXSA9IGlzX2NvbXBvc2l0ZVsxXSA9IHRydWU7CiAgICAgICAgCiAgICAgICAgZm9yIChpbnQgeCA9IDI7IHggPD0gTElNSVQ7IHgrKykgewogICAgICAgICAgICBpZiAoIWlzX2NvbXBvc2l0ZVt4XSkgewogICAgICAgICAgICAgICAgcHJpbWVzLnB1c2hfYmFjayh4KTsKICAgICAgICAgICAgICAgIGlmICgoaW50KXByaW1lcy5zaXplKCkgPT0gVEFSR0VUKSBicmVhazsKICAgICAgICAgICAgICAgIGlmICgobG9uZyBsb25nKXggKiB4IDw9IExJTUlUKSB7CiAgICAgICAgICAgICAgICAgICAgZm9yIChpbnQgeSA9IHggKiB4OyB5IDw9IExJTUlUOyB5ICs9IHgpIHsKICAgICAgICAgICAgICAgICAgICAgICAgaXNfY29tcG9zaXRlW3ldID0gdHJ1ZTsKICAgICAgICAgICAgICAgICAgICB9CiAgICAgICAgICAgICAgICB9CiAgICAgICAgICAgIH0KICAgICAgICB9CgogICAgICAgIAogICAgICAgIHZlY3RvcjxsbD4gcHJlZihwcmltZXMuc2l6ZSgpICsgMSwwKTsKICAgICAgICBmb3IgKGludCBpID0gMCAgOyBpIDwgcHJpbWVzLnNpemUoKSA7IGkgKyspIHsKICAgICAgICAgICAgcHJlZltpICsgMV0gPSBwcmVmW2ldICsgcHJpbWVzW2ldOyAKICAgICAgICB9CiAgICAgICAgd2hpbGUgKHQgLS0pIHsKICAgICAgICAgICAgaW50IG4gOyBjaW4gPj4gbjsgCiAgICAgICAgICAgIHZlY3RvcjxpbnQ+IGFycihuKTsKICAgICAgICAgICAgZm9yIChpbnQgaSA9ICAwIDsgaSA8IG47IGkgKyspIHsKICAgICAgICAgICAgICAgIGNpbiA+PiBhcnJbaV07IAogICAgICAgICAgICB9CiAgICAgICAgICAgIGxsIHN1bSA9IDA7CiAgICAgICAgICAgIGZvciAoaW50IGkgPSAwIDsgaSA8IG4gOyBpICsrICkgewogICAgICAgICAgICAgICAgc3VtICs9IGFycltpXTsgCiAgICAgICAgICAgIH0KICAgICAgICAgICAgc29ydChhcnIuYmVnaW4oKSwgYXJyLmVuZCgpLGdyZWF0ZXI8aW50PigpKTsgCiAgICAgICAgICAgIGludCByZXMgPSAwOwogICAgICAgICAgICBpbnQgY3VyciA9IG47CiAgICAgICAgICAgIGludCBwID0gbiAtIDE7CiAgICAgICAgICAgIHdoaWxlIChwcmVmW2N1cnJdID4gc3VtICkgewogICAgICAgICAgICAgICAgcmVzICsrOyAKICAgICAgICAgICAgICAgIHN1bSAtPSBhcnJbcF07CiAgICAgICAgICAgICAgICBwIC0tOyAKICAgICAgICAgICAgICAgIGN1cnIgLS07ICAgICAgICAgICAgIAogICAgICAgICAgICB9IAogICAgICAgICAgICBjb3V0IDw8IHJlcyA8PCBlbmRsOwogICAgICAgIH0KICAgICAgICAgICAgICAgIAogICAgICAgIHJldHVybiAwOwogICAgfQogICAg