Quad-power prime seeds: Difference between revisions

→‎{{header|Wren}}: Added 10 million for consistency with 'penta' task.
(→‎{{header|Wren}}: Added 10 million for consistency with 'penta' task.)
Line 60:
p.setUi(n)
var k = n + 1
return (p + k).probPrime(15) > 0 &&
(p.mul(n) + k).probPrime(15) > 0 &&
(p.mul(n) + k).probPrime(15) > 0 &&
Line 82:
c = c + 1
if (n > m * 1e6) {
Fmt.print(" $d2d million is the $r: $,d10d", m, c, n)
m = m + 1
if (m == 1011) return
}
}
Line 100:
 
First quad-power prime seed greater than:
1 million is the 141st: 1,009,286
2 million is the 234th: 2,015,496
3 million is the 319th: 3,005,316
4 million is the 383rd: 4,004,726
5 million is the 452nd: 5,023,880
6 million is the 514th: 6,000,554
7 million is the 567th: 7,047,129
8 million is the 601st: 8,005,710
9 million is the 645th: 9,055,151
10 million is the 701st: 10,023,600
</pre>
9,476

edits