#include <fstream.h>
#include <math.h>
#define NMAX 1001
long baze[NMAX];
long long pow(long p,long e)
{ long i;
  long long s=1;
  for (i=1;i<=e;i++) s=s*p;
  return s;
}
long prim(long x)
{ long i;
  for (i=2;i<=sqrt(x);i++)
	if (x%i==0)
		return i;
  return x;
}


int main()
{ long n,i,j,t[NMAX],puteri[NMAX],x,p,e,a,c;
  long long nr;
  ifstream f("fractii.in");
  f>>n;
  f.close();
  nr=1;
  t[1]=1;
  for (i=2;i<=n;i++)
	{ x=prim(i);
	  if (x==i) p=i;
	      else p=baze[x];
	  baze[i]=p;
	  if (p==i) e=1;
		 else e=puteri[x]+((i/x)/p);
	  puteri[i]=e;
	  c=pow(p,e-1);
	  a=i/(c*p);
	  t[i]=(p-1)*c*t[a];
	  nr+=2*t[i];
	}
  ofstream g("fractii.out");
  g<<nr;
  g.close();
  return 0;
}