Iccanobif primes: Difference between revisions

Added Wren
m (→‎{{header|Raku}}: doh. display number in correct orientation)
(Added Wren)
Line 49:
26: 48989340566288399474..02930339234215909399 (digits: 1947)
27: 12746927684958209654..53436989647994940101 (digits: 2283)
</pre>
 
=={{header|Wren}}==
{{libheader|Wren-gmp}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="ecmascript">import "./gmp" for Mpz
import "./fmt" for Fmt
 
var fib = Mpz.new()
var p = Mpz.new()
var prev = Mpz.zero
var curr = Mpz.one
var count = 0
System.print("First 25 Iccanobif primes:")
while (count < 25) {
fib.add(curr, prev)
var fs = fib.toString
p.setStr(fs[-1..0])
if (p.probPrime(15) > 0) {
count = count + 1
Fmt.write("$2d: $20a ", count, fib)
var fc = fs.count
if (fc > 40) {
Fmt.print("($d digits)", fc)
} else {
System.print()
}
}
prev.set(curr)
curr.set(fib)
}</syntaxhighlight>
 
{{out}}
<pre>
First 25 Iccanobif primes:
1: 2
2: 3
3: 5
4: 13
5: 34
6: 377
7: 1597
8: 10946
9: 75025
10: 121393
11: 17167680177565
12: 135301852344706746049
13: 1672445759041379840132227567949787325
14: 3691087032412706639440686994833808526209
15: 30464466237021013443...96920321847653300991 (80 digits)
16: 32913358638779021325...58997476926373114877 (104 digits)
17: 13165703827079947192...88140676510958522773 (137 digits)
18: 16750341744683276705...59513167849839163757 (330 digits)
19: 31953053259600357131...02673823374863309871 (406 digits)
20: 70520374065886416072...50351192710136172329 (409 digits)
21: 18441226374242153376...35265089601875102405 (503 digits)
22: 10281003316385169296...29008393747421011503 (888 digits)
23: 12365854644134546680...55549639624074581864 (1020 digits)
24: 19372256889969382102...48891873035874310178 (1122 digits)
25: 16425634816734200102...63356734522065615471 (1911 digits)
</pre>
9,486

edits