Wagstaff primes: Difference between revisions
added Arturo
m (→{{header|J}}: remove redundant EMPTY) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 82:
10: 43: 2932031007403
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">wagstaff?: function [e][
and? -> prime? e -> prime? (1+2^e)/3
]
summarize: function [n][
n: ~"|n|"
s: size n
if s > 20 -> n: ((take n 10)++"...")++drop n s-10
n ++ ~" (|s| digits)"
]
exponents: select.first:24 range.step:2 1 ∞ => wagstaff?
loop.with:'i exponents 'x -> print [
pad ~"|i+1|:" 3 pad ~"|x| -" 6 summarize (1+2^x)/3
]</syntaxhighlight>
{{out}}
<pre> 1: 3 - 3 (1 digits)
2: 5 - 11 (2 digits)
3: 7 - 43 (2 digits)
4: 11 - 683 (3 digits)
5: 13 - 2731 (4 digits)
6: 17 - 43691 (5 digits)
7: 19 - 174763 (6 digits)
8: 23 - 2796203 (7 digits)
9: 31 - 715827883 (9 digits)
10: 43 - 2932031007403 (13 digits)
11: 61 - 768614336404564651 (18 digits)
12: 79 - 2014876366...8195784363 (24 digits)
13: 101 - 8451004001...1135470251 (30 digits)
14: 127 - 5671372782...8628035243 (38 digits)
15: 167 - 6235740319...3121833643 (50 digits)
16: 191 - 1046183622...7339085483 (58 digits)
17: 199 - 2678230073...8805883563 (60 digits)
18: 313 - 5562466239...8130434731 (94 digits)
19: 347 - 9556244233...1903606443 (104 digits)
20: 701 - 3506757267...7823854251 (211 digits)
21: 1709 - 9619252724...9070528171 (514 digits)
22: 2617 - 2081504709...3435947691 (788 digits)
23: 3539 - 7379609820...6486497963 (1065 digits)
24: 5807 - 4018496237...6663568043 (1748 digits)</pre>
=={{header|BASIC256}}==
| |||