Anonymous user
Sexy primes: Difference between revisions
no edit summary
m (Minor performance improvement) |
No edit summary |
||
Line 1,914:
There are 48,627 unsexy primes less than 1,000,035
The last 10 unsexy primes are: 999853 999863 999883 999907 999917 999931 999961 999979 999983 1000003
</pre>
=={{header|Ring}}==
<lang ring>
load "stdlib.ring"
primes = []
for n = 1 to 100
if isprime(n)
add(primes,n)
ok
next
see "Sexy prime pairs under 100:" + nl + nl
for n = 1 to len(primes)-1
for m = n + 1 to len(primes)
if primes[m] - primes[n] = 6
see "(" + primes[n] + " " + primes[m] + ")" + nl
ok
next
next
see nl
see "Sexy prime triplets under 100:" + nl
for n = 1 to len(primes)-1
for m = n + 1 to len(primes)
for x = m + 1 to len(primes)
bool1 = (primes[m] - primes[n] = 6)
bool2 = (primes[x] - primes[m] = 6)
bool = bool1 and bool2
if bool
see "(" + primes[n] + " " + primes[m] + " " + primes[x] + ")" + nl
ok
next
next
next
see nl
see "Sexy prime quadruplets under 100:" + nl
for n = 1 to len(primes)-1
for m = n + 1 to len(primes)
for x = m + 1 to len(primes)
for y = m + 1 to len(primes)
bool1 = (primes[m] - primes[n] = 6)
bool2 = (primes[x] - primes[m] = 6)
bool3 = (primes[y] - primes[x] = 6)
bool = bool1 and bool2 and bool3
if bool
see "(" + primes[n] + " " + primes[m] + " " + primes[x] + " " + primes[y] + ")" + nl
ok
next
next
next
next
see nl
see "Sexy prime quintuplets under 100:" + nl
for n = 1 to len(primes)-1
for m = n + 1 to len(primes)
for x = m + 1 to len(primes)
for y = m + 1 to len(primes)
for z = y + 1 to len(primes)
bool1 = (primes[m] - primes[n] = 6)
bool2 = (primes[x] - primes[m] = 6)
bool3 = (primes[y] - primes[x] = 6)
bool4 = (primes[z] - primes[y] = 6)
bool = bool1 and bool2 and bool3 and bool4
if bool
see "(" + primes[n] + " " + primes[m] + " " + primes[x] + " " +
primes[y] + " " + primes[z] + ")" + nl
ok
next
next
next
next
next
</lang>
Output:
<pre>
Sexy prime pairs under 100:
(5 11)
(7 13)
(11 17)
(13 19)
(17 23)
(23 29)
(31 37)
(37 43)
(41 47)
(47 53)
(53 59)
(61 67)
(67 73)
(73 79)
(83 89)
Sexy prime triplets under 100:
(5 11 17)
(7 13 19)
(11 17 23)
(17 23 29)
(31 37 43)
(41 47 53)
(47 53 59)
(61 67 73)
(67 73 79)
Sexy prime quadruplets under 100:
(5 11 17 23)
(11 17 23 29)
(41 47 53 59)
(61 67 73 79)
Sexy prime quintuplets under 100:
(5 11 17 23 29)
</pre>
| |||