51Nod 1238

题目

戳这里

推导

$~~~sum_{i=1}^{n}sum_{j=1}^{n}lcm(i,j)$

$=sum_{i=1}^{n}sum_{j=1}^{n}frac{ij}{gcd(i,j)}$

$=sum_{i=1}^{n}d^{-1}sum_{i=1}^{n}sum_{j=1}^{n}ij[gcd(i,j)==d]$

$=sum_{i=1}^{n}dsum_{i=1}^{lfloorfrac{n}{d} floor}sum_{j=1}^{lfloorfrac{n}{d} floor}ij[gcd(i,j)==1]$

$=sum_{i=1}^{n}dsum_{i=1}^{lfloorfrac{n}{d} floor}isum_{j=1}^{lfloorfrac{n}{d} floor}j[gcd(i,j)==1]$

$=sum_{i=1}^{n}d(2sum_{i=1}^{lfloorfrac{n}{d} floor}isum_{j=1}^{i}j[gcd(i,j)==1]-1)$

$=sum_{i=1}^{n}d(2sum_{i=1}^{lfloorfrac{n}{d} floor}ifrac{ivarphi(i)+[i==1]}{2}-1)$

$=sum_{i=1}^{n}dsum_{i=1}^{lfloorfrac{n}{d} floor}i^2varphi(i)$

子问题：

求$sum_{i=1}^{n}i^2varphi(i)$
令$f(i)=i^2varphi(i)$
使用狄利克雷卷积，卷一个$g(i)=i^2$
那么：

$~~~~sum_{i=1}^{n}(f*g)(i)$

$=sum_{i=1}^{n}sum_{d|i}^{}f(d)g(frac{i}{d})$

$=sum_{i=1}^{n}sum_{d|i}^{}d^2varphi(d)(frac{i}{d})^2$

$=sum_{i=1}^{n}i^2sum_{d|i}^{}varphi(d)$

$=sum_{i=1}^{n}i^3$

$=frac{n^2(n+1)^2}{4}$

又因为：

$~~~~sum_{i=1}^{n}sum_{d|i}^{}d^2varphi(d)(frac{i}{d})^2$

$=sum_{i=1}^{n}i^2sum_{d=1}^{lfloorfrac{n}{i} floor}d^2varphi(d)$

$=sum_{i=2}^{n}i^2sum_{d=1}^{lfloorfrac{n}{i} floor}d^2varphi(d)+sum_{i=1}^{n}i^2varphi(i)$

$=frac{n^2(n+1)^2}{4}$

所以：

$sum_{i=1}^{n}i^2varphi(i)=frac{n^2(n+1)^2}{4}-sum_{i=2}^{n}i^2sum_{d=1}^{lfloorfrac{n}{i} floor}d^2varphi(d)$

使用杜教筛将时间复杂度降到$O(n^{frac{2}{3}})$

数学太难了QAQ

代码：

#include<cstdio>
#include<cmath>
#include<cstring>
#include<map>
#include<algorithm>

#define maxn 5000000
#define INF 0x3f3f3f3f
#define MOD 1000000007
#define two 500000004
#define six 166666668

using namespace std;

inline long long getint()
{
	long long num=0,flag=1;char c;
	while((c=getchar())<'0'||c>'9')if(c=='-')flag=-1;
	while(c>='0'&&c<='9')num=num*10+c-48,c=getchar();
	return num*flag;
}

long long n;
bool not_prime[maxn+5];
int prime[maxn+5],cnt;
long long phi[maxn+5];
map<long long,long long>M;

inline void init()
{
	phi[1]=1;
	for(int i=2;i<=maxn;i++)
	{
		if(!not_prime[i])prime[++cnt]=i,phi[i]=i-1;
		for(int j=1;j<=cnt&&i*prime[j]<=maxn;j++)
		{
			not_prime[i*prime[j]]=1;
			if(i%prime[j])phi[i*prime[j]]=phi[i]*phi[prime[j]];
			else{phi[i*prime[j]]=phi[i]*prime[j];break;}
		}
	}
	for(int i=1;i<=maxn;i++)(phi[i]*=1ll*i*i%MOD)%=MOD;
	for(int i=1;i<=maxn;i++)(phi[i]+=phi[i-1])%=MOD;
}

inline long long getsqr(long long x)
{return x%MOD*((x+1)%MOD)%MOD*((2*x+1)%MOD)%MOD*six%MOD;}

inline long long solve(long long x)
{
	if(x<=maxn)return phi[x];
	if(M.count(x))return M[x];
	long long sum=x%MOD*((x+1)%MOD)%MOD*two%MOD;
	(sum*=sum)%=MOD;
	for(long long i=2,j;i<=x;i=j+1)
	{
		j=x/(x/i);
		(sum-=(getsqr(j)-getsqr(i-1))%MOD*solve(x/i)%MOD)%=MOD;
		(sum+=MOD)%=MOD;
	}
	return M[x]=sum;
}

int main()
{
	init();
	n=getint();
	long long sum=0;
	for(long long i=1,j;i<=n;i=j+1)
	{
		j=n/(n/i);
		(sum+=1ll*(j+i)%MOD*(j-i+1)%MOD*two%MOD*solve(n/i)%MOD)%=MOD;
	}
	printf("%lld
",sum);
}