Cod sursa(job #2373819)

Utilizator superstar1998Moldoveanu Vlad superstar1998 Data 7 martie 2019 15:25:45
Problema Fractii Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.81 kb
#include <fstream>

using namespace std;
ifstream f("fractii.in");
ofstream g("fractii.out");
 long long n,m,i,j,k,sol,x,p;
bool a[4000];
int v[100005];
int main()
{
    f>>n;
    for(i=2;i*i<=n;i++)
        if(a[i]==0) for(j=i*i;j<=n;j=j+i) a[j]=1;
    for(i=2;i<=n;i++)
    {
        if(a[i]==0)
            v[++k]=i;
    }
    for(i=2;i<=n;i++)
    {
        int nr=i;
        x=i;
        j=1;
        while(v[j]*v[j]<=x)
        {
            p=0;
            while(x%v[j]==0)
            {
                p++;
                x=x/v[j];
            }
            if(p!=0)
            {
                nr=nr*(v[j]-1)/v[j];
            }
            j++;
        }
        if(x>1)
        {
            nr=nr*(x-1)/x;
        }
        sol+=nr*2;
    }
    g<<sol+1;
    return 0;
}