Special neighbor primes: Difference between revisions
added Raku programming solution
(added Raku programming solution) |
|||
Line 329:
Found 103,611 special neighbour primes < 10,000,000
</pre>
=={{header|Raku}}==
<lang perl6># 20210809 Raku programming solution
for 2 … * -> \P1 {
next unless P1.is-prime;
my \P2 = $ = P1 ; repeat { P2++ } until P2.is-prime ;
last if P2 ≥ Ⅽ;
($_ = P1+P2-1).is-prime and printf "%2d, %2d => %3d\n", P1, P2, $_
}</lang>
{{out}}
<pre> 3, 5 => 7
5, 7 => 11
7, 11 => 17
11, 13 => 23
13, 17 => 29
19, 23 => 41
29, 31 => 59
31, 37 => 67
41, 43 => 83
43, 47 => 89
61, 67 => 127
67, 71 => 137
73, 79 => 151</pre>
=={{header|REXX}}==
| |||