/*
线性筛法：三种情况(每次遍历得到i),每次都是一轮一轮的到值
    质数：质数的（1～n）互质个数p-1=i-1
    质数倍数：N=求乘(pi^ni), phi(pj * i) = pj * phi(i) = phi(i)*pj
    非质数倍数：N相对于i多一个质因子pj：phi(pj*i)=pj * phi(i) * (1-1/pj)=phi(i)*(pj-1)
*/

/*
I 整数n
计算1～n所有整数的欧拉函数之和=求和(phi(i))
O 欧拉函数之和

I
6

O
12

*/

#include <iostream>

using namespace std;

using LL = long long;

const int N = 1000010;


int primes[N], cnt;
int euler[N];
bool st[N];


void get_eulers(int n)
{
    // 规定
    euler[1] = 1;
    // 线性筛法：每次筛选判断i，i对应的欧拉函数存入euler[]，筛后选值进入primes[]
    // 三种Euler[]赋值：质数，后向筛选(当前i为质因子、不为质因子)
    for (int i = 2; i <= n; i ++ )
    {
        if (!st[i])
        {
            primes[cnt ++ ] = i;
            euler[i] = i - 1;
        }
        for (int j = 0; primes[j] <= n / i; j ++ )
        {
            int t = primes[j] * i;
            st[t] = true;
            if (i % primes[j] == 0)
            {
                euler[t] = euler[i] * primes[j];
                // 停止一轮的筛选：break
                break;
            }
            else euler[t] = euler[i] * (primes[j] - 1);
        }
    }
}


int main()
{
    int n;
    cin >> n;

    get_eulers(n);

    LL res = 0;
    for (int i = 1; i <= n; i ++ ) res += euler[i];

    cout << res << endl;

    return 0;
}