Pagini recente » Cod sursa (job #2097033) | Istoria paginii runda/oni_2004/clasament | Cod sursa (job #2657250) | Cod sursa (job #2153177) | Cod sursa (job #284719)
Cod sursa(job #284719)
#include<stdio.h>
long n,i;
long v[1000001],s;
FILE*in=fopen("fractii.in","r");
FILE*out=fopen("fractii.out","w");
void verif()
{
long i,j;
for(i=2;i<=n;i++)
v[i]=i;
for(i=2;i<=n;i++)
if(v[i]==i)
{
for(j=i;j<=n;j+=i)
v[j]=v[j]/i*(i-1);
}
}
int main()
{
fscanf(in,"%ld",&n);
verif();
for(i=2;i<=n;i++)
s=s+2*v[i];
fprintf(out,"%ld",s+1);
return 0;
}