Cod sursa(job #3219201)

Utilizator divadddDavid Curca divaddd Data 30 martie 2024 14:02:47
Problema Pairs Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.69 kb
#include <bits/stdc++.h>
#define int long long
using namespace std;
const int VMAX = 1e6+2;
int n,ap[VMAX],cnt[VMAX],mobius[VMAX];

ifstream fin("pairs.in");
ofstream fout("pairs.out");

signed main()
{
    fin >> n;
    for(int i = 1; i <= n; i++){
        int x;
        fin >> x;
        ap[x] = 1;
    }
    mobius[1] = 1;
	for(int i = 1; i < VMAX; i++){
        cnt[i] = ap[i];
		for(int j = 2*i; j < VMAX; j += i){
			mobius[j] -= mobius[i];
			cnt[i] += ap[j];
		}
	}
	auto sgauss = [&](int n) -> int {
        return (n*(n-1)/2);
	};
    int ans = sgauss(n);
	for(int i = 2; i < VMAX; i++){
        ans += mobius[i] * sgauss(cnt[i]);
	}
	fout << ans;
    return 0;
}