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