#include <iostream>

using namespace std;
using ll = long long;
const int MX = 1000100;
ll f[MX],inv[MX],fi[MX];
constexpr ll mod = 1000000007;
void solve(){
    inv[1] = 1;
    for(int i=2;i<MX;i++){
        inv[i] = mod - (mod/i)*inv[mod%i]%mod;
    }
    f[0] = fi[0] = 1;
    for(int i=1;i<MX;i++){
        f[i] = f[i-1]*i%mod;
        fi[i] = fi[i-1]*inv[i]%mod;
    }
}

ll nck(ll n, ll k){
    if(n<0 || k<0 || n<k) return 0;
    return f[n]*fi[k]%mod*fi[n-k]%mod;
}

ll pw(ll a,ll x){
    ll ret = 1;
    while(x){
        if(x&1) (ret *= a) %= mod;
        (a *= a) %= mod; x /= 2;
    }
    return ret;
}

int gcd(int x,int y){
    if(x<y) swap(x,y);
    if(y==0) return x;
    return gcd(x%y,y);
}

ll cnt[1000010];
int main(){
    int i,j,n,k; cin >> n >> k;
    solve();
    for(i=1;i<n;i++){
        int x = n/gcd(i,n);
        if(k%x!=0) continue;
        cnt[i] = nck(n/x,k/x);
    }
    for(i=1;i<=n;i++){
        for(j=2*i;j<=n;j+=i) (cnt[j] += mod - cnt[i]) %= mod;
    }
    ll ans = 0;
    for(i=1;i<n;i++) (ans += cnt[i]) %= mod;
    cout << ans << endl;
}