思路:
线性递推欧拉函数 搞个前缀和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);
}