#include <stdio.h>
#include <math.h>
#include <string.h>
unsigned long long nmax,nrprim;
unsigned long long fract;
unsigned long long p[1000003],prim[80000],npr[80000];

void citire(){
		 FILE *in;
		 in=fopen("fractii.in","r");
		 fscanf(in,"%lld",&nmax);
		 fclose(in);
		 }


void scriere(){
     FILE *out;
     out=fopen("fractii.out","w");
		 fprintf(out,"%lld",2*(fract)+1);
     fclose(out);          
     }
     
unsigned long long ciur(){
   int i, j, nr = 0;  
   for (i = 2; i <= nmax; ++i) {  
     if (p[i] == 0) {  
       nr++;  
			 for (j = i + i; j <= nmax; j += i) {
				 p[j] = 1;
			 }
		 }
	 }
	 return nr;
}
void vectprim(){
unsigned long long i,j;
j=1;
i=2;
while(j<=nrprim){
                 if(!p[i]) {prim[j]=i;j++;}
				   		    i++;
						 }
		 }

unsigned long long descfactprimi(long long k){
unsigned long long i,j;
int b=1;
i=1;
j=0;
   while(k!=1){
               if(k%prim[i]==0){
								if(b){j++;
                                npr[j]=prim[i];
                                b=0;
                                }
                                k=k/prim[i];}
                    else {i++;b=1;}
               }
               
		 return j;
}

unsigned long long totient(long k){
unsigned long long i,nrprimi;
unsigned long long prod=k;
		nrprimi=descfactprimi(k);
		if(nrprimi==0) return 0;
//		if(k==npr[1]) return k;
		for(i=1;i<=nrprimi;i++)
		prod=prod*(1-(double)1/npr[i]);

		return (long long)prod;
    }


void procesare(){
		 unsigned long long i;
		 unsigned long long tot;
		 nrprim=ciur();
		 vectprim();
		 fract=0;
		 for(i=1;i<=nmax;i++){
								tot=totient(i);
								fract=fract+tot;
															}
				 }
int main(){
		citire();
		procesare();
		scriere();

		 return 0;
		 }