都是很典的技巧,比较简单。
首先我们先不加证明的给出几个很经典的引理:
-
lcmS=T⊆S,T=∅∏gcdT(−1)∣T∣−1,即
gcd−lcm 容斥,使用
min−max 容斥可证。
-
gcd(fi1,⋯,fin)=fgcd(i1,⋯,in),其中
fi 是斐波那契数列的第
i 项。从二元情况归纳可证,二元情况辗转相除可证。
-
i1=1∑m⋯in=1∑m[gcd(i1,⋯,in)=k]=d=1∑⌊km⌋μ(d)⌊dkm⌋n。莫反可证。
下面开始推式子。写出原式:
i1=1∏m⋯in=1∏mlcm(fi1,⋯,fin)
i1=1∏m⋯in=1∏m∏T⊆{1,2,⋯,n}j∈Tgcd(fij)(−1)∣T∣−1
i1=1∏m⋯in=1∏m∏T⊆{1,2,⋯,n}fj∈Tgcd(ij)(−1)∣T∣−1
枚举
∣T∣=i,t∈Tgcd(it)=j,使用引理
3,得到:
i=1∏nj=1∏m(fj(−1)i−1)(in)mn−id=1∑⌊jm⌋μ(d)⌊djm⌋i
具体地,
mn−i 是不包含在
T 中元素的选法,
(in) 是给
T 中元素分配标号的方案数,后面的求和号是引理
3。
整理得:
j=1∏mi=1∏nfj(−1)i−1(in)mn−id=1∑⌊jm⌋μ(d)⌊djm⌋i
枚举
i 求积就是在指数上枚举
i 求和,交换求和号:
j=1∏mfjd=1∑⌊jm⌋μ(d)i=1∑n(−1)i−1(in)mn−i⌊djm⌋i
整理:
j=1∏md=1∏⌊jm⌋fjμ(d)(−i=1∑n(−⌊djm⌋)i(in)mn−i)
指数上的括号里可以补上
i=0 使用二项式定理:
j=1∏md=1∏⌊jm⌋fjμ(d)(mn−(m−⌊djm⌋)n)
t=1∏m(d∣t∏fdμ(dt))mn−(m−⌊tm⌋)n
预处理括号里面的前缀积就可以用整除分块单次
O(mlogn) 预处理了,如果使用欧拉定理还能优化到
O(mlogP),使用离散对数应该可以做到
O(m),不过第一个就足够了。
至于预处理
d∣t∏fdμ(dt),求离散对数后就是经典的求一个数列和莫比乌斯函数的狄利克雷卷积,可以使用类似狄利克雷前缀和的方法,每次减去(求离散对数前是除掉)比当前质数的次数少一的位置的值,即可
O(mloglogm) 预处理。
总的时间复杂度是
O(mloglogm+Tmlogn)。
CPP#include<bits/stdc++.h>
#define F(i,a,b) for(int i(a),i##i##end(b);i<=i##i##end;++i)
#define R(i,a,b) for(int i(a),i##i##end(b);i>=i##i##end;--i)
#define ll long long
#define File(a) freopen(#a".in","r",stdin);freopen(#a".out","w",stdout)
using namespace std;
const int MAXN=2e7+1,MOD=37426667,EXPO=37426666;
inline ll qpow(ll base,ll expo){
ll res=1;
while(expo){
(expo&1)&&(res=res*base%MOD);
base=base*base%MOD,expo>>=1;
}
return res;
}
inline ll qpowe(ll base,ll expo){
ll res=1;
while(expo){
(expo&1)&&(res=res*base%EXPO);
base=base*base%EXPO,expo>>=1;
}
return res;
}
int pr[MAXN],cnt;
bool vis[MAXN];
short mu[MAXN];
inline void init(){
mu[1]=1;
F(i,2,MAXN-1){
!vis[i]&&(pr[++cnt]=i,mu[i]=-1);
F(j,1,cnt){
int t=i*pr[j];
if(t>=MAXN) break;
vis[t]=1;
if(i%pr[j]==0) break;
else mu[t]=-mu[i];
}
}
return;
}
int inv[MOD],fib[MAXN],mul[MAXN];
signed main(){
ios::sync_with_stdio(0);
cin.tie(0),cout.tie(0);
init();
inv[1]=1;
F(i,2,MOD-1) inv[i]=MOD-MOD/i*1ll*inv[MOD%i]%MOD;
fib[1]=fib[2]=mul[0]=mul[1]=mul[2]=1;
F(i,3,MAXN-1) (fib[i]=fib[i-1]+fib[i-2])>=MOD&&(fib[i]-=MOD),mul[i]=fib[i];
F(i,1,cnt) for(int t=(MAXN-1)/pr[i],j=t*pr[i];j>=pr[i];j-=pr[i],--t) mul[j]=mul[j]*1ll*inv[mul[t]]%MOD;
F(i,1,MAXN-1) mul[i]=mul[i-1]*1ll*mul[i]%MOD;
int T,m;
for(cin>>T;T;--T){
ll n,ans=1;
cin>>n>>m;
ll qwq=qpowe(m,n);
for(int l=1,r;l<=m;l=r+1){
int t=m/l;
r=m/t;
ans=ans*qpow(mul[r]*1ll*inv[mul[l-1]]%MOD,qwq-qpowe(m-t,n)+EXPO)%MOD;
}
cout<<ans<<"\n";
}
return 0;
}