Special neighbor primes: Difference between revisions
m
no edit summary
mNo edit summary |
|||
Line 103:
Found 103,611 special neighbor primes under 10,000,000.
</pre>
=={{header|Julia}}==
<lang julia>using Primes
function specialneighbors(N)
neighbors, p1 = Pair{Int}[], 2
while (p2 = nextprime(p1 + 2)) < N
isprime(p2 + p1 - 1) && push!(neighbors, p1 => p2)
p1 = p2
end
return neighbors
end
println("Neighbor primes, p1 and p2, where p1 + p2 - 1 is prime:")
println("p1 p2 p1 + p2 - 1\n--------------------------")
for (p1, p2) in specialneighbors(100)
println(lpad(p1, 2), " ", rpad(p2, 7), p1 + p2 - 1)
end
</lang>{{out}}
<pre>
Neighbor primes, p1 and p2, where p1 + p2 - 1 is prime:
p1 p2 p1 + p2 - 1
--------------------------
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|Nim}}==
| |||