Special neighbor primes: Difference between revisions
Add Factor
mNo edit summary |
(Add Factor) |
||
Line 27:
(73, 79)
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-06-02}}
<lang factor>USING: kernel lists lists.lazy math math.primes
math.primes.lists prettyprint sequences ;
lprimes dup cdr lzip [ sum 1 - prime? ] lfilter
[ second 100 < ] lwhile [ . ] leach</lang>
{{out}}
<pre>
{ 3 5 }
{ 5 7 }
{ 7 11 }
{ 11 13 }
{ 13 17 }
{ 19 23 }
{ 29 31 }
{ 31 37 }
{ 41 43 }
{ 43 47 }
{ 61 67 }
{ 67 71 }
{ 73 79 }
</pre>
=={{header|Go}}==
{{trans|Wren}}
| |||