Description
Doris刚刚学习了fibonacci数列。用f[i]表示数列的第i项，那么
[f(x)=egin{cases}0&,x=0
onumber\1&,x=1
onumber\f(x-1)+f(x-2)&,xgeqslant2
onumberend{cases}
]
Doris用老师的超级计算机生成了一个n×m的表格，第i行第j列的格子中的数是f[gcd(i,j)]，其中gcd(i,j)表示i,j的最大公约数。Doris的表格中共有n×m个数，她想知道这些数的乘积是多少。答案对10^9+7取模。
Input
有多组测试数据。
第一个一个数T，表示数据组数。
接下来T行，每行两个数n,m
T<=1000,1<=n,m<=10^6
Output
输出T行，第i行的数是第i组数据的结果
Sample Input
3
2 3
4 5
6 7
Sample Output
1
6
960
原式要求
[prodlimits_{i=1}^nprodlimits_{j=1}^mf(gcd(i,j))
]
然后我们喜闻乐见一下
[prodlimits_{d=1}^nf(d)^{sumlimits_{i=1}^{lfloor n/d
floor}sumlimits_{j=1}^{lfloor m/d
floor}[gcd(i,j)=d]}\prodlimits_{d=1}^nf(d)^{sumlimits_{x=1}^{lfloor n/d
floor}mu(x)lfloorfrac{n}{dx}
floorlfloorfrac{m}{dx}
floor}
]
我们令(T=dx)，然后继续推
[prodlimits_{T=1}^nprodlimits_{d|T}f(d)^{lfloorfrac{n}{T}
floorlfloorfrac{m}{T}
floormu(frac{T}{d})}
]
然后稍微分个组
[prodlimits_{T=1}^n(prodlimits_{d|T}f(d)^{mu(frac{T}{d})})^{lfloorfrac{n}{T}
floorlfloorfrac{m}{T}
floor}
]
然后外面显然可以分块了，里面嘞？又不能线筛。。。
不能线筛就暴力算啊喂，范围才(10^6)，复杂度大概为(O(nln n))的样子
然后暴力算出里面那玩意的前缀和，然后分块就好了
/*program from Wolfycz*/
#include<cmath>
#include<cstdio>
#include<cstring>
#include<iostream>
#include<algorithm>
#define inf 0x7f7f7f7f
using namespace std;
typedef long long ll;
typedef unsigned int ui;
typedef unsigned long long ull;
inline char gc(){
static char buf[1000000],*p1=buf,*p2=buf;
return p1==p2&&(p2=(p1=buf)+fread(buf,1,1000000,stdin),p1==p2)?EOF:*p1++;
}
inline int frd(){
int x=0,f=1; char ch=gc();
for (;ch<'0'||ch>'9';ch=gc()) if (ch=='-') f=-1;
for (;ch>='0'&&ch<='9';ch=gc()) x=(x<<3)+(x<<1)+ch-'0';
return x*f;
}
inline int read(){
int x=0,f=1; char ch=getchar();
for (;ch<'0'||ch>'9';ch=getchar()) if (ch=='-') f=-1;
for (;ch>='0'&&ch<='9';ch=getchar()) x=(x<<3)+(x<<1)+ch-'0';
return x*f;
}
inline void print(int x){
if (x<0) putchar('-'),x=-x;
if (x>9) print(x/10);
putchar(x%10+'0');
}
const int N=1e6,p=1e9+7;
int prime[N+10],f[N+10],mu[N+10],g[N+10],sf[N+10];
bool inprime[N+10];
int mlt(int a,int b){
int res=1;
for (;b;b>>=1,a=1ll*a*a%p) if (b&1) res=1ll*res*a%p;
return res;
}
void prepare(){
int tot=0;
f[1]=mu[1]=g[1]=sf[0]=sf[1]=1;
for (int i=2;i<=N;i++){
if (!inprime[i]) mu[prime[++tot]=i]=-1;
for (int j=1;j<=tot&&i*prime[j]<=N;j++){
inprime[i*prime[j]]=1;
if (i%prime[j]==0) break;
mu[i*prime[j]]=-mu[i];
}
f[i]=(f[i-2]+f[i-1])%p;
g[i]=mlt(f[i],p-2),sf[i]=1;
}
for (int i=1;i<=N;i++){
if (!mu[i]) continue;
for (int j=i;j<=N;j+=i)
sf[j]=1ll*sf[j]*(mu[i]==1?f[j/i]:g[j/i])%p;
}
for (int i=1;i<=N;i++) sf[i]=1ll*sf[i-1]*sf[i]%p;
}
int main(){
prepare();
for (int T=read();T;T--){
int n=read(),m=read(),Ans=1;
if (n>m) swap(n,m);
for (int i=1,pos;i<=n;i=pos+1){
pos=min(n/(n/i),m/(m/i));
int res=1ll*sf[pos]*mlt(sf[i-1],p-2)%p;
Ans=1ll*Ans*mlt(res,1ll*(n/i)*(m/i)%(p-1))%p;
}
printf("%d
",Ans);
}
return 0;
}