Triplet of three numbers: Difference between revisions
m
no edit summary
No edit summary |
mNo edit summary |
||
Line 4:
Numbers n such that the three numbers n-1, n+3 and n+5 are all prime. where '''n < 6000'''
<br><br>
=={{header|Julia}}==
<lang julia>using Primes
makesprimetriplet(n) = all(isprime, [n - 1, n + 3, n + 5])
println(" N Prime Triplet\n--------------------------")
foreach(n -> println(rpad(n, 6), [n - 1, n + 1, n + 5]), filter(makesprimetriplet, 2:6005))
</lang>{{out}}
<pre>
N Prime Triplet
--------------------------
8 [7, 9, 13]
14 [13, 15, 19]
38 [37, 39, 43]
68 [67, 69, 73]
98 [97, 99, 103]
104 [103, 105, 109]
194 [193, 195, 199]
224 [223, 225, 229]
278 [277, 279, 283]
308 [307, 309, 313]
458 [457, 459, 463]
614 [613, 615, 619]
824 [823, 825, 829]
854 [853, 855, 859]
878 [877, 879, 883]
1088 [1087, 1089, 1093]
1298 [1297, 1299, 1303]
1424 [1423, 1425, 1429]
1448 [1447, 1449, 1453]
1484 [1483, 1485, 1489]
1664 [1663, 1665, 1669]
1694 [1693, 1695, 1699]
1784 [1783, 1785, 1789]
1868 [1867, 1869, 1873]
1874 [1873, 1875, 1879]
1994 [1993, 1995, 1999]
2084 [2083, 2085, 2089]
2138 [2137, 2139, 2143]
2378 [2377, 2379, 2383]
2684 [2683, 2685, 2689]
2708 [2707, 2709, 2713]
2798 [2797, 2799, 2803]
3164 [3163, 3165, 3169]
3254 [3253, 3255, 3259]
3458 [3457, 3459, 3463]
3464 [3463, 3465, 3469]
3848 [3847, 3849, 3853]
4154 [4153, 4155, 4159]
4514 [4513, 4515, 4519]
4784 [4783, 4785, 4789]
5228 [5227, 5229, 5233]
5414 [5413, 5415, 5419]
5438 [5437, 5439, 5443]
5648 [5647, 5649, 5653]
5654 [5653, 5655, 5659]
5738 [5737, 5739, 5743]
</pre>
=={{header|Ring}}==
| |||