题目链接:https://cn.vjudge.net/problem/HYSBZ-2818
#include<bits/stdc++.h>
#pragma comment(linker,"/STACK:1024000000,1024000000")
using namespace std;#define debug puts("YES");
#define rep(x,y,z) for(int (x)=(y);(x)<(z);(x)++)
#define read(x,y) scanf("%d%d",&x,&y)#define lrt int l,int r,int rt
#define lson l,mid,rt<<1
#define rson mid+1,r,rt<<1|1
#define ll long long
const int maxn =1e7+5;
const int mod=1e9+7;
ll powmod(ll x,ll y) {ll t;for(t=1;y;y>>=1,x=x*x%mod) if(y&1) t=t*x%mod;return t;}
ll gcd(ll x,ll y) { return y==0?x:gcd(y,x%y); }
ll n;
/*
就这样的题目化式子化出了问题，
最终化出了不能线性筛的东西。。。
其实在化式子的时候也要观察下复杂度，
最终表达形式是：
sigma d:1~n vis[d]* n/d二维范围内的互质对个数。
sigma i:1~x sigma j:1~y gcd(i,j)==1是个经典的容斥结构，
只要预处理莫比乌斯函数的前缀和和素数个数的前缀和即可。
最终复杂度是两个分块，归为线性。
*/
///筛法筛莫比乌斯反演函数
int vis[maxn],miu[maxn];
int prim[maxn],tot=0;
void sieve()
{miu[1]=vis[1]=1;for(int i=2;i<maxn;i++){if(vis[i]==0) prim[tot++]=i,miu[i]=-1;for(int j=0;j<tot;j++){if(1LL*i*prim[j]>=maxn) break;int k=i*prim[j];vis[k]=1;if(i%prim[j]) miu[k]=-miu[i];else break;}}for(int i=1;i<maxn;i++){miu[i]+=miu[i-1];vis[i]^=1;vis[i]+=vis[i-1];///素数个数前缀和处理}
}ll ms(ll x)
{ll ans=0;for(int i=1,j;i<=x;i=j+1){j=x/(x/i);ll tp=x/i;ans+=(miu[j]-miu[i-1])*tp*tp;}return ans;
}int main()
{sieve(); scanf("%lld",&n);///for(int i=1;i<maxn;i++)/// for(int j=i,k=1;j<maxn;j+=i,k++)/// g[j]+=miu[k]*(1-vis[i]);///O(难过)ll ans=0;for(int i=1,j;i<=n;i=j+1){j=n/(n/i);ll tp=n/i;ans+=(vis[j]-vis[i-1])*ms(tp);///cout<<ans<<endl;}printf("%lld\n",ans);return 0;
}