#include <iostream>
#include <cassert>
 
const int maxprime = 65536;
 
int primes[maxprime];
int nprimes;
 
void findPrimes() {
    std::cout << "Searching prime numbers ..." << std::endl;
    bool *sieve = new bool[maxprime+1];
    int i;
    for (i=0;i<maxprime;i++)
        sieve[i] = 0;
    i = 2;
    nprimes = 0;
    while (1) {
        while (i<maxprime && sieve[i])
            i++;
        if (i>=maxprime)
            break;
        primes[nprimes++] = i;
        for (int j=i*2; j<maxprime; j+=i)
            sieve[j] = 1;
        i++;
    }
    std::cout << nprimes << " primes found" << std::endl;
    delete sieve;
}
 
int sumDiv(int a) {
    int i, r=1, b=a;
    int *pr = primes;
    while (b > 1) {
        int p = *pr++, s = 1;
        if (p*p > b)
            return r * (b+1) - a;
        while (b % p == 0) {
            b /= p;
            s = s*p + 1;
        }
        r *= s;
    }
    return r - a;
}
 
int main() {
    findPrimes();
    int cnt = 0;
    for (int a=1; ; a++) {
        int b = sumDiv(a);
        if (a < b && sumDiv(b) == a) {
            cnt++;
            std::cout << cnt << " (" << a << ", " << b << ")" << std::endl;
            if (cnt == 60)
                break;
        }
    }
    return 0;
}

I2luY2x1ZGUgPGlvc3RyZWFtPgojaW5jbHVkZSA8Y2Fzc2VydD4KCmNvbnN0IGludCBtYXhwcmltZSA9IDY1NTM2OwoKaW50IHByaW1lc1ttYXhwcmltZV07CmludCBucHJpbWVzOwoKdm9pZCBmaW5kUHJpbWVzKCkgewogICAgc3RkOjpjb3V0IDw8ICJTZWFyY2hpbmcgcHJpbWUgbnVtYmVycyAuLi4iIDw8IHN0ZDo6ZW5kbDsKICAgIGJvb2wgKnNpZXZlID0gbmV3IGJvb2xbbWF4cHJpbWUrMV07CiAgICBpbnQgaTsKICAgIGZvciAoaT0wO2k8bWF4cHJpbWU7aSsrKQogICAgICAgIHNpZXZlW2ldID0gMDsKICAgIGkgPSAyOwogICAgbnByaW1lcyA9IDA7CiAgICB3aGlsZSAoMSkgewogICAgICAgIHdoaWxlIChpPG1heHByaW1lICYmIHNpZXZlW2ldKQogICAgICAgICAgICBpKys7CiAgICAgICAgaWYgKGk+PW1heHByaW1lKQogICAgICAgICAgICBicmVhazsKICAgICAgICBwcmltZXNbbnByaW1lcysrXSA9IGk7CiAgICAgICAgZm9yIChpbnQgaj1pKjI7IGo8bWF4cHJpbWU7IGorPWkpCiAgICAgICAgICAgIHNpZXZlW2pdID0gMTsKICAgICAgICBpKys7CiAgICB9CiAgICBzdGQ6OmNvdXQgPDwgbnByaW1lcyA8PCAiIHByaW1lcyBmb3VuZCIgPDwgc3RkOjplbmRsOwogICAgZGVsZXRlIHNpZXZlOwp9CgppbnQgc3VtRGl2KGludCBhKSB7CiAgICBpbnQgaSwgcj0xLCBiPWE7CiAgICBpbnQgKnByID0gcHJpbWVzOwogICAgd2hpbGUgKGIgPiAxKSB7CiAgICAgICAgaW50IHAgPSAqcHIrKywgcyA9IDE7CiAgICAgICAgaWYgKHAqcCA+IGIpCiAgICAgICAgICAgIHJldHVybiByICogKGIrMSkgLSBhOwogICAgICAgIHdoaWxlIChiICUgcCA9PSAwKSB7CiAgICAgICAgICAgIGIgLz0gcDsKICAgICAgICAgICAgcyA9IHMqcCArIDE7CiAgICAgICAgfQogICAgICAgIHIgKj0gczsKICAgIH0KICAgIHJldHVybiByIC0gYTsKfQoKaW50IG1haW4oKSB7CiAgICBmaW5kUHJpbWVzKCk7CiAgICBpbnQgY250ID0gMDsKICAgIGZvciAoaW50IGE9MTsgOyBhKyspIHsKICAgICAgICBpbnQgYiA9IHN1bURpdihhKTsKICAgICAgICBpZiAoYSA8IGIgJiYgc3VtRGl2KGIpID09IGEpIHsKICAgICAgICAgICAgY250Kys7CiAgICAgICAgICAgIHN0ZDo6Y291dCA8PCBjbnQgPDwgIiAoIiA8PCBhIDw8ICIsICIgPDwgYiA8PCAiKSIgPDwgc3RkOjplbmRsOwogICAgICAgICAgICBpZiAoY250ID09IDYwKQogICAgICAgICAgICAgICAgYnJlYWs7CiAgICAgICAgfQogICAgfQogICAgcmV0dXJuIDA7Cn0=