#include <fstream.h>
#include <stdio.h>
long a[1000002],i,j,n;
unsigned long long k;
FILE *f;
int main()
{
	f=fopen("fractii.in","r");
	ofstream g("fractii.out");
	fscanf(f,"%ld",&n);
	k=2;
	for(i=2;i<=n;i++){a[i]=i;}
	for(i=2;i<=n;i++){
		if(a[i]==i){for(j=i;j<=n;j+=i){a[j]/=i;a[j]*=(i-1);}}
		k+=2*a[i];
	                 }
	g<<k-1;
	fclose(f);g.close();
return 0;
}