Wagstaff primes: Difference between revisions
Content added Content deleted
m (→{{header|J}}: remove redundant EMPTY) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 82: | Line 82: | ||
10: 43: 2932031007403 |
10: 43: 2932031007403 |
||
</pre> |
</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}}== |
=={{header|BASIC256}}== |