Wagstaff primes: Difference between revisions

</pre>

=={{header|Craft Basic}}==

<syntaxhighlight lang="basic">'Craft Basic may only calculate up to 9

let n = 9

let p = 1

do

let p = p + 2

if prime(p) then

let w = (2 ^ p + 1) / 3

if prime(w) then

let c = c + 1

print tab, c, tab, p, tab, w

endif

endif

title p

wait

loop c < n</syntaxhighlight>

{{out}}

<pre>

1 3 3

2 5 11

3 7 43

4 11 683

5 13 2731

6 17 43691

7 19 174763

8 23 2796203

9 31 715827883