思路:
线性递推欧拉函数 搞个前缀和sum
枚举当前的素数p Σsum[n/p]*2-1就是解了
(-1 是因为(1,1)被算了两次)

注意某些地方用long long

//By SiriusRen
#include <cstdio>
using namespace std;
#define N 10000007
int n,vis[N],phi[N],prime[N],tot;
long long ans,sum[N];
int main(){
    scanf("%d",&n);
    sum[1]=1;
    for(int i=2;i<=n;i++){
        if(!vis[i])prime[++tot]=i,phi[i]=i-1;
        for(int j=1;j<=tot&&i*prime[j]<=n;j++){
            vis[i*prime[j]]=1,phi[i*prime[j]]=phi[i]*(prime[j]-1);
            if(i%prime[j]==0){phi[i*prime[j]]=phi[i]*prime[j];break;}
        }
        sum[i]=sum[i-1]+phi[i];
    }
    for(int i=1;i<=tot;i++)ans+=sum[n/prime[i]]*2-1;
    printf("%lld\n",ans);
}

BZOJ 2818 欧拉函数_前缀和