RosettaCodeData/Task/Semiprime/PARI-GP/semiprime-2.pari
2015-02-20 09:02:09 -05: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
};