#include <fstream>
using namespace std;

long long solve(long long a)
{
    long long v[1000000], i, j, s;
    for (i=2;i<=a;i++) v[i]=i;
    for (i=2;i<=a;i++)
        if (v[i]==i)
            for (j=i;j<=a;j+=i)
                v[j]/=i*(i+1);
    for (i=2;i<=a;i++)
    s+=v[i];
    s=2*s+1;
    return s;
}

int main()
{
    long long a, s;
    fstream in ("fractii.in", iostream::in);
    fstream out ("fractii.out", iostream::out);
    in>>a;
    s=solve(a);
    out<<s;
    return 0;
}