Prime triplets: Difference between revisions
Content added Content deleted
m (Added an addtional "see also") |
(Add Factor) |
||
Line 158: | Line 158: | ||
5477 5479 5483 |
5477 5479 5483 |
||
Prime Triplets 1-5499: 43 |
Prime Triplets 1-5499: 43 |
||
</pre> |
|||
=={{header|Factor}}== |
|||
{{works with|Factor|0.98}} |
|||
<lang factor>USING: arrays kernel lists lists.lazy math math.primes |
|||
math.primes.lists prettyprint sequences ; |
|||
lprimes ! An infinite lazy list of primes |
|||
[ dup 2 + dup 4 + 3array ] lmap-lazy ! Map primes to their triplets (e.g. 2 -> { 2 4 8 }) |
|||
[ [ prime? ] all? ] lfilter ! Select triplets which contain only primes |
|||
[ first 5500 < ] lwhile ! Make the list end eventually... |
|||
[ . ] leach ! Print each item in the list</lang> |
|||
{{out}} |
|||
<pre style="height:14em"> |
|||
{ 5 7 11 } |
|||
{ 11 13 17 } |
|||
{ 17 19 23 } |
|||
{ 41 43 47 } |
|||
{ 101 103 107 } |
|||
{ 107 109 113 } |
|||
{ 191 193 197 } |
|||
{ 227 229 233 } |
|||
{ 311 313 317 } |
|||
{ 347 349 353 } |
|||
{ 461 463 467 } |
|||
{ 641 643 647 } |
|||
{ 821 823 827 } |
|||
{ 857 859 863 } |
|||
{ 881 883 887 } |
|||
{ 1091 1093 1097 } |
|||
{ 1277 1279 1283 } |
|||
{ 1301 1303 1307 } |
|||
{ 1427 1429 1433 } |
|||
{ 1481 1483 1487 } |
|||
{ 1487 1489 1493 } |
|||
{ 1607 1609 1613 } |
|||
{ 1871 1873 1877 } |
|||
{ 1997 1999 2003 } |
|||
{ 2081 2083 2087 } |
|||
{ 2237 2239 2243 } |
|||
{ 2267 2269 2273 } |
|||
{ 2657 2659 2663 } |
|||
{ 2687 2689 2693 } |
|||
{ 3251 3253 3257 } |
|||
{ 3461 3463 3467 } |
|||
{ 3527 3529 3533 } |
|||
{ 3671 3673 3677 } |
|||
{ 3917 3919 3923 } |
|||
{ 4001 4003 4007 } |
|||
{ 4127 4129 4133 } |
|||
{ 4517 4519 4523 } |
|||
{ 4637 4639 4643 } |
|||
{ 4787 4789 4793 } |
|||
{ 4931 4933 4937 } |
|||
{ 4967 4969 4973 } |
|||
{ 5231 5233 5237 } |
|||
{ 5477 5479 5483 } |
|||
</pre> |
</pre> |
||