Least m such that n! + m is prime: Difference between revisions
Added Wren
Thundergnat (talk | contribs) m (→{{header|Raku}}: clarify) |
(Added Wren) |
||
Line 70:
First m > 10000 is 12619 at position 599</pre>
=={{header|Wren}}==
{{libheader|Wren-gmp}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="ecmascript">import "./gmp" for Mpz
import "./fmt" for Fmt
var fact = Mpz.one
var p = Mpz.new()
var diffs = List.filled(50, 0)
var n = 0
var t = 1000
var limit = 10000
while (true) {
if (n > 0) fact.mul(n)
p.nextPrime(fact)
var m = p.sub(fact).toNum
if (n < 50) diffs[n] = m
if (n == 49) {
System.print("Least positive m such that n! + m is prime; first 50:")
Fmt.tprint("$3d ", diffs, 10)
System.print()
} else if (m > t) {
while (true) {
Fmt.print("First m > $,6d is $,6d at position $d", t, m, n)
t = t + 1000
if (m <= t) break
}
if (t > limit) return
}
n = n + 1
}</syntaxhighlight>
{{out}}
<pre>
Least positive m such that n! + m is prime; first 50:
1 1 1 1 5 7 7 11 23 17
11 1 29 67 19 43 23 31 37 89
29 31 31 97 131 41 59 1 67 223
107 127 79 37 97 61 131 1 43 97
53 1 97 71 47 239 101 233 53 83
First m > 1,000 is 1,069 at position 107
First m > 2,000 is 3,391 at position 192
First m > 3,000 is 3,391 at position 192
First m > 4,000 is 4,943 at position 284
First m > 5,000 is 5,233 at position 384
First m > 6,000 is 6,131 at position 388
First m > 7,000 is 9,067 at position 445
First m > 8,000 is 9,067 at position 445
First m > 9,000 is 9,067 at position 445
First m > 10,000 is 12,619 at position 599
First m > 11,000 is 12,619 at position 599
First m > 12,000 is 12,619 at position 599
</pre>
| |||