#include <cstdio>
#include <cstring>
#include <algorithm>
#include <cmath>
using namespace std;
typedef long long ll;
const int maxn = 4000000;
ll s[maxn+10],f[maxn+10];
int phi[maxn+10];
int main() {
phi[1] = 1;
for(int n = 2;n <= maxn;n++) {
phi[n] = n;
int t = n;
int m = (int)sqrt(n+0.5);
for(int i = 2;i*i <= t;i++)
if(t%i==0) {
phi[n] = phi[n] / i * (i-1);
while(t % i == 0) t /= i;
}
if(t > 1) {
phi[n] = phi[n] / t * (t-1);
}
}
for(int i = 1;i <= maxn;i++)
for(int n = 2*i;n <= maxn;n += i) f[n] += (ll)phi[n/i]*i;
s[2] = f[2];
for(int i = 3;i <= maxn;i++) s[i] = s[i-1] + f[i];
int n;
while(scanf("%d",&n) == 1 && n) {
printf("%lld\n",s[n]);
}
return 0;
}