Iccanobif primes: Difference between revisions

Content added Content deleted
(Added Wren)
(→‎{{header|Wren}}: Realigned with Raku output.)
Line 62: Line 62:
var curr = Mpz.one
var curr = Mpz.one
var count = 0
var count = 0
System.print("First 25 Iccanobif primes:")
System.print("First 27 Iccanobif primes:")
while (count < 25) {
while (count < 27) {
fib.add(curr, prev)
fib.add(curr, prev)
var fs = fib.toString
var fs = fib.toString
Line 69: Line 69:
if (p.probPrime(15) > 0) {
if (p.probPrime(15) > 0) {
count = count + 1
count = count + 1
Fmt.write("$2d: $20a ", count, fib)
var pc = p.toString.count
var fc = fs.count
Fmt.print("$2d: $20a ($d digits)", count, p, pc)
if (fc > 40) {
Fmt.print("($d digits)", fc)
} else {
System.print()
}
}
}
prev.set(curr)
prev.set(curr)
Line 83: Line 78:
{{out}}
{{out}}
<pre>
<pre>
First 25 Iccanobif primes:
First 27 Iccanobif primes:
1: 2
1: 2 (1 digits)
2: 3
2: 3 (1 digits)
3: 5
3: 5 (1 digits)
4: 13
4: 31 (2 digits)
5: 34
5: 43 (2 digits)
6: 377
6: 773 (3 digits)
7: 1597
7: 7951 (4 digits)
8: 10946
8: 64901 (5 digits)
9: 75025
9: 52057 (5 digits)
10: 121393
10: 393121 (6 digits)
11: 56577108676171 (14 digits)
11: 17167680177565
12: 940647607443258103531 (21 digits)
12: 135301852344706746049
13: 5237879497657222310489731409575442761 (37 digits)
13: 1672445759041379840132227567949787325
14: 9026258083384996860449366072142307801963 (40 digits)
14: 3691087032412706639440686994833808526209
15: 30464466237021013443...96920321847653300991 (80 digits)
15: 19900335674812302969...34431012073266446403 (80 digits)
16: 32913358638779021325...58997476926373114877 (104 digits)
16: 77841137362967479985...52312097783685331923 (104 digits)
17: 13165703827079947192...88140676510958522773 (137 digits)
17: 37722585901567604188...29174997072830756131 (137 digits)
18: 16750341744683276705...59513167849839163757 (330 digits)
18: 75736193894876131595...50767238644714305761 (330 digits)
19: 31953053259600357131...02673823374863309871 (406 digits)
19: 17890336847332837620...13175300695235035913 (406 digits)
20: 70520374065886416072...50351192710136172329 (409 digits)
20: 92327163101729115305...27061468856047302507 (409 digits)
21: 18441226374242153376...35265089601875102405 (503 digits)
21: 50420157810698056253...67335124247362214481 (503 digits)
22: 10281003316385169296...29008393747421011503 (888 digits)
22: 30511012474739380092...69296158361330018201 (888 digits)
23: 12365854644134546680...55549639624074581864 (1020 digits)
23: 46818547042693694555...08664543144645856321 (1020 digits)
24: 19372256889969382102...48891873035874310178 (1122 digits)
24: 87101347853037819884...20128396998865227391 (1122 digits)
25: 16425634816734200102...63356734522065615471 (1911 digits)
25: 17451656022543765336...20100243761843652461 (1911 digits)
26: 48989340566288399474...02930339234215909399 (1947 digits)
27: 12746927684958209654...53436989647994940101 (2283 digits)
</pre>
</pre>
Retrieved from "https://rosettacode.org/wiki/Iccanobif_primes"