Special neighbor primes: Difference between revisions
Added Easylang
m (→{{header|PL/M}}: tweak - Q must be odd) |
(Added Easylang) |
||
Line 453:
=={{header|EasyLang}}==
<syntaxhighlight>
fastfunc isprim num .
i = 3
while i <= sqrt num
if num mod i = 0
return 0
.
i += 2
.
return 1
.
p = 2
for i = 3 step 2 to 99
if isprim i = 1
pp = p
p = i
if isprim (pp + p - 1) = 1
write "(" & pp & " " & p & ") "
.
.
.
</syntaxhighlight>
{{out}}
<pre>
(2 3) (3 5) (5 7) (7 11) (11 13) (13 17) (19 23) (29 31) (31 37) (41 43) (43 47) (61 67) (67 71) (73 79)
</pre>
=={{header|F_Sharp|F#}}==
| |||