Another update from ingydotnet^djgoku

Task/Semiprime/Maple/semiprime-1.maple

@@ -0,0 +1,10 @@
+SemiPrimes := proc( n )
+    local fact;
+    fact := numtheory:-divisors( n ) minus {1, n};
+    if numelems( fact ) in {1,2} and not( member( 'false', isprime ~ ( fact ) ) ) then
+        return n;
+    else
+        return NULL;
+    end if;
+end proc:
+{ seq( SemiPrime( i ), i = 1..100 ) };

Task/Semiprime/Maple/semiprime-2.maple

@@ -0,0 +1 @@
+{ 4,6,9,10,14,15,21,22,25,26,33,34,35,38,39,46,49,51,55,57,58,62,65,69,74,77,82,85,86,87,91,93,94,95 }