f=->x,n,i{n<2?$.+=1:i.upto(0.5+x**(1.0/n)){|i|x%i<1&&f[x/i,n-1,i]}}
eval'N,X='+`tr \\  ,`
X+=1
f[X,N,2]
p$.