注意到n很小，考虑枚举i。现在要求的是f(n,m)=Σφ(in) (i=1~m)。显然当n没有平方因子时，φ(in)=φ(i)·φ(n/gcd(i,n))·gcd(i,n)。利用φ*1=id又可得φ(i,n)=φ(i)·Σφ(n/d) (d|gcd(i,n))。改为枚举d就可以得到f(n,m)=Σφ(n/d)*f(d,m/d) (d|n)，记忆化搜索求解。n有平方因子时可以发现只要把平方因子提出来最后再乘上就行了，除去平方因子的数可以线性筛得到。
当n=1时无法继续递归，答案即为φ的前缀和，杜教筛即可。复杂度应该是O(n√m+m2/3)左右，不是很会证。
#include<iostream>
#include<cstdio>
#include<cmath>
#include<cstdlib>
#include<cstring>
#include<algorithm>
#include<map>
using namespace std;
int read()
{
int x=,f=;char c=getchar();
while (c<''||c>'') {if (c=='-') f=-;c=getchar();}
while (c>=''&&c<='') x=(x<<)+(x<<)+(c^),c=getchar();
return x*f;
}
#define N 100010
#define P 1000000007
int n,m,prime[N<<],phi[N<<],p[N<<],ans=,cnt=;
bool flag[N<<];
map<int,int> f,g[N];
int getphi(int n)
{
if (n<(N<<)) return phi[n];
if (f[n]) return f[n];
int s=1ll*n*(n+)/%P;
for (int i=;i<=n;i++)
{
int t=n/(n/i);
s=(s-1ll*(t-i+)*getphi(n/i)%P+P)%P;
i=t;
}
return f[n]=s;
}
int calc(int n,int m)
{
if (!m) return ;
if (n==) return getphi(m);
if (g[n][m]) return g[n][m];
int x=n,s=;n=p[n];
for (int i=;i*i<=n;i++)
if (n%i==)
{
s=(s+1ll*(getphi(n/i)-getphi(n/i-)+P)*calc(i,m/i)%P)%P;
if (i*i<n) s=(s+1ll*(getphi(i)-getphi(i-)+P)*calc(n/i,m/(n/i))%P)%P;
}
s=1ll*s*(x/n)%P;
return g[n][m]=s;
}
int main()
{
#ifndef ONLINE_JUDGE
freopen("bzoj3512.in","r",stdin);
freopen("bzoj3512.out","w",stdout);
const char LL[]="%I64d\n";
#else
const char LL[]="%lld\n";
#endif
n=read(),m=read();
flag[]=,phi[]=,p[]=;
for (int i=;i<(N<<);i++)
{
if (!flag[i]) prime[++cnt]=i,phi[i]=i-,p[i]=i;
for (int j=;j<=cnt&&prime[j]*i<(N<<);j++)
{
flag[prime[j]*i]=;
if (i%prime[j]==) {phi[prime[j]*i]=phi[i]*prime[j];p[prime[j]*i]=p[i];break;}
else phi[prime[j]*i]=phi[i]*(prime[j]-),p[prime[j]*i]=p[i]*prime[j];
}
}
for (int i=;i<(N<<);i++) phi[i]=(phi[i-]+phi[i])%P;
for (int i=;i<=n;i++)
ans=(ans+calc(i,m))%P;
cout<<ans;
return ;
}