Sexy primes: Difference between revisions
m
→{{header|jq}}: formatting
m (→{{header|jq}}: formatting) |
|||
Line 1,348:
| { pairs:[], trips:[], quads:[], quins:[], unsexy:[2, 3], i: 3 }
| until (.i >= $lim;
if .i > 5 and .i < $lim-6 and $sieve[.i] and ($sieve[.i-6]|not) and ($sieve[.i+6]
then .unsexy += [.i]
else when(.i < $lim-6 and $sieve[.i] and $sieve[.i+6];
.trips += [[.i, .i+6, .i+12]]
| when(.i < $lim-18 and $sieve[.i+18];
end
| .i += 2 )
Line 1,391:
[999853,999863,999883,999907,999917,999931,999961,999979,999983,1000003]
</pre>
=={{header|Julia}}==
| |||