Cod sursa(job #2915063)

Utilizator euyoTukanul euyo Data 21 iulie 2022 19:01:46
Problema Pairs Scor 60
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.81 kb
#include <bits/stdc++.h>

using namespace std;

using ll = long long;

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

const int MAXV = 1e6;

bool ciur[1 + MAXV], f[1 + MAXV], in[1 + MAXV];
int cnt[1 + MAXV];

int main() {
  int n, x, mx = 0;

  fin >> n;
  for ( int i = 1; i <= n; ++i ) {
	fin >> x;
	mx = max(mx, x);
	in[x] = true;
  }
  for ( int d = 2; d <= mx; ++d ) {
	if ( ciur[d] == 0 ) {
      cnt[d] = 1;
	  for ( int i = d + d; i <= mx; i += d ) {
        ciur[i] = 1;
	    ++cnt[i];
	    f[i] |= (i % (d * d) == 0);
	  }
	}
  }
  ll res = (ll)n * (n - 1) / 2;
  for ( int d = 2; d <= mx; ++d ) {
	if ( !f[d] ) {
	  int k = 0;
	  for ( int i = d; i <= mx; i += d ) {
		k += in[i];
	  }
	  res += (ll)k * (k - 1) / 2 * (cnt[d] % 2 ? -1 : 1);
	}
  }
  fout << res;
  fin.close();
  fout.close();
  return 0;
}