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