Consecutive primes with ascending or descending differences: Difference between revisions

Line 547:
then .longSeqs = [.currSeq]
else if (.currSeq|length) == (.longSeqs[0]|length)
then .longSeqs = .longSeqs += [.currSeq]
else .
end
end
| .currSeq = [$primes[$i-1], $primes[$i]]
else .currSeq = .currSeq += [$primes[$i]]
end
| .pd = $d
Line 585:
752207 (44) 752251 (12) 752263 (10) 752273 (8) 752281 (6) 752287 (4) 752291 (2) 752293
</pre>
 
 
=={{header|Julia}}==
2,460

edits