ll N,X,D[1d6],d,z,i=2;ll f(ll x,ll n,ll i){for(;n-1?i<d&&D[i]**n<=x:!++z;++i)x%D[i]||f(x/D[i],n-1,i);}{rd(N,X);for(++X;i*i<=X;++i)X%i?0:(D[d++]=i)*i-X?D[d++]=X/i:0;sort(D,D+d);f(X,N,0);wt(z);}