uoj#188. 【UR #13】Sanrd（Min_25筛）

题面

传送门

题解

这是一道语文题

不难看出，题目所求即为(l)到(r)中每个数的次大质因子

我们考虑(Min\_25)筛的过程，设

[S(n,j)=sum_{i=1}^nsec_p(i)[min_p(i)geq P_j] ]

用人话来说的话，就是(S(n,j))表示(1)到(n)之间所有满足最小值因子大于等于(P_j)的(i)的次大质因子之和

我们照例把质数和合数的贡献分开考虑。所有质数贡献为(0)，而对于合数，我们枚举最小质因子(P_k)。此时分为两种情况，如果(P_k)不是次大质因子，那么(S(n,j))要加上所有满足(k>j)的(S(leftlfloorfrac{n}{{P_k}^e} ight floor,k+1))。如果(P_k)是次大质因子，那么剩下的数肯定是一个大于等于(P_k)的质因子，也就是(P_k)到(leftlfloorfrac{n}{{P_k}^e} ight floor)之间质数的个数

用从隔壁大佬那里偷来的公式来写的话就是这样子

[S(n,j)=sum_{kge j}sum_{e=1}^{p_k^{e+1}le n}S(lfloorfrac{n}{p^{e}_k} floor,k+1)+p_ksum_{i=p_k}^{lfloorfrac{n}{p^{e}_k} floor}[iin P] ]

//minamoto
#include<bits/stdc++.h>
#define R register
#define ll long long
#define fp(i,a,b) for(R int i=a,I=b+1;i<I;++i)
#define fd(i,a,b) for(R int i=a,I=b-1;i>I;--i)
#define go(u) for(int i=head[u],v=e[i].v;i;i=e[i].nx,v=e[i].v)
using namespace std;
const int N=1e6+5;
int p[N],id1[N],id2[N],m,tot,sqr;bitset<N>vis;
ll l,r,qwq,w[N],g[N];
void init(int n){
	fp(i,2,n){
		if(!vis[i])p[++tot]=i;
		for(R int j=1;j<=tot&&1ll*i*p[j]<=n;++j){
			vis[i*p[j]]=1;
			if(i%p[j]==0)break;
		}
	}
}
ll S(ll n,int m){
	if(n<=2||p[m]>n)return 0;
	ll res=0;
	for(R int i=m;i<=tot&&1ll*p[i]*p[i]<=n;++i)
		for(R ll tmp=p[i];tmp*p[i]<=n;tmp*=p[i]){
			int k=(n/tmp<=sqr)?id1[n/tmp]:id2[qwq/(n/tmp)];
			res+=S(n/tmp,i+1)+(g[k]-i+1)*p[i];
		}
	return res;
}
ll calc(ll n){
	qwq=n,m=0;
	for(R ll i=1,j;i<=n;i=j+1){
		j=n/(n/i),w[++m]=n/i;
		w[m]<=sqr?id1[w[m]]=m:id2[n/w[m]]=m;
		g[m]=w[m]-1;
	}
	fp(j,1,tot)for(R int i=1;1ll*p[j]*p[j]<=w[i];++i){
		int k=(w[i]/p[j]<=sqr)?id1[w[i]/p[j]]:id2[n/(w[i]/p[j])];
		g[i]=g[i]-g[k]+j-1;
	}
	return S(n,1);
}
int main(){
//	freopen("testdata.in","r",stdin);
	scanf("%lld%lld",&l,&r),init(sqr=sqrt(r));
	printf("%lld
",calc(r)-calc(l-1));
	return 0;
}