Prime triplets: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 12: | Line 12: | ||
:* The RosettaCode task for other patterns of primes: [[Successive prime differences]] |
:* The RosettaCode task for other patterns of primes: [[Successive prime differences]] |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
{{trans|Nim}} |
|||
<lang 11l>F is_prime(n) |
|||
I n == 2 |
|||
R 1B |
|||
I n < 2 | n % 2 == 0 |
|||
R 0B |
|||
L(i) (3 .. Int(sqrt(n))).step(2) |
|||
I n % i == 0 |
|||
R 0B |
|||
R 1B |
|||
print(‘ p p+2 p+6’) |
|||
V count = 0 |
|||
L(n) (3.<5500).step(2) |
|||
I is_prime(n) & is_prime(n + 2) & is_prime(n + 6) |
|||
print(f:‘{n:4} {n + 2:4} {n + 6:4}’) |
|||
count++ |
|||
print("\nFound "count‘ primes triplets for p < 5500.’)</lang> |
|||
{{out}} |
|||
<pre> |
|||
p p+2 p+6 |
|||
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 |
|||
Found 43 primes triplets for p < 5500. |
|||
</pre> |
|||
=={{header|Action!}}== |
=={{header|Action!}}== |