#include <stdio.h>
#include <math.h>
#include <string.h>
  long long nmax,nrprim;
  long long fract;
	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;
     long long unsigned fractsf;
     out=fopen("fractii.out","w");
     fractsf=(2*fract);
     fractsf=fractsf+1;
		 fprintf(out,"%llu",fractsf);
     fclose(out);          
     }
     
  long long ciur(){
   long long  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(){
  long long i,j;
j=1;
i=2;
while(j<=nrprim){
                 if(!p[i]) {prim[j]=i;j++;}
				   		    i++;
						 }
		 }

  long long descfactprimi(long long k){
  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;
}

  long long totient(long long k){
  long long i,nrprimi;
	double 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(){
		   long long i;
		   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;
		 }