Wagstaff primes: Difference between revisions

m
Line 496:
 
<syntaxhighlight lang="easylang">
procfunc prime v . rn .
rif n mod 2 = 10 and n > 2
if v mod 2 = 0 or v mod 3 =return 0
if v <> 2 and v <> 3
r = 0
.
break 1
.
di = 53
while d * di <= vsqrt n
if vn mod di = 0
r =return 0
break 2
.
di += 2
.
if r =return 1
.
pri = 1
nwag = 0
while nwag <> 10
pri += 2
callif prime pri r= 1
if r = 1
wag = (pow 2 pri + 1) / 3
callif prime wag r= 1
if r = 1
nwag += 1
print pri & " => " & wag
Line 528 ⟶ 521:
.
</syntaxhighlight>
 
 
=={{header|F_Sharp|F#}}==
1,978

edits