Prime triplets: Difference between revisions
Content added Content deleted
(Add Factor) |
|||
Line 339: | Line 339: | ||
=={{header|PARI/GP}}== |
=={{header|PARI/GP}}== |
||
<lang parigp>for(i=1,5499,if(isprime(i)&&isprime(i+2)&&isprime(i+6),print(i," ",i+2," ",i+6)))</lang> |
<lang parigp>for(i=1,5499,if(isprime(i)&&isprime(i+2)&&isprime(i+6),print(i," ",i+2," ",i+6)))</lang> |
||
=={{header|Perl}}== |
|||
<lang perl>#!/usr/bin/perl |
|||
use strict; |
|||
use warnings; |
|||
my %cache; |
|||
sub isprime { $cache{$_[0]} //= (1 x $_[0]) =~ /^(11+)\1+$/ ? 0 : 1 } |
|||
for ( 3 .. 5500 ) |
|||
{ |
|||
$_ & 1 and isprime($_+6) and isprime($_+2) and isprime($_) and |
|||
printf "%5d" x 3 . "\n", $_, $_ + 2, $_ + 6; |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
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> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |