4 lines
138 B
Text
4 lines
138 B
Text
[ primefactors size 2 = ] is semiprime ( n --> b )
|
|
|
|
say "Semiprimes less than 100:" cr
|
|
100 times [ i^ semiprime if [ i^ echo sp ] ]
|