Semiprime: Difference between revisions
→{{header|Oforth}}
m (insert works with) |
|||
Line 475:
Output:
<pre>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</pre>
=={{header|Oforth}}==
<lang Oforth>func: semiprime(n)
{
| i |
0 2 n sqrt asInteger for: i [ while(n i divrem swap 0 &==) [ ->n 1 + ] drop ]
n 1 > ifTrue: [ 1 + ] 2 ==
}</lang>
{{out}}
<pre>
100 seq filter(#semiprime) println
[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]
</pre>
=={{header|PARI/GP}}==
| |||