RosettaCodeData/Task/Semiprime/PARI-GP/semiprime-2.parigp
2023-07-01 13:44:08 -04:00

5 lines
114 B
Text

issemi(n)={
forprime(p=2,97,if(n%p==0, return(isprime(n/p))));
if(isprime(n), return(0));
bigomega(n)==2
};