#include<stdio.h>
#define Maxn 1000005
#define Maxp 1000005
long n,q,b[Maxp];
long long a[Maxn],s;
FILE *f,*g;

void prim()
{long i,j;
for(i=2;i<=n;i++)
{a[i]=i;
for(j=1;b[j]<=i/2&&j<=q;j++)
if(i%b[j]==0)
{a[i]/=b[j];
a[i]*=b[j]-1;}
if(a[i]==i)
{q++;
a[i]--;
b[q]=i;}}

}

int main()
{f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
fscanf(f,"%ld",&n);
prim();
long i;
s=0;
for(i=2;i<=n;i++)
s+=a[i];
fprintf(g,"%lld\n",2*s+1);
fclose(f);
fclose(g);
return 0;}