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