Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- parfactor(Y,{lim=Y})=a=[];parforprime(x=1,lim,if(!(Y%x),x,1),y,if(y==1,,D=Y;z=0;until((D%y)!=0,D=D/y;z+=1);a=concat(a,[[y,z]])));Mat(Col(a))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
