Erdős-primes: Difference between revisions
Added Easylang
(added RPL) |
(Added Easylang) |
||
Line 598:
The 7,875th Erdős prime is 999,721.
</pre>
=={{header|EasyLang}}==
{{trans|Action}}
<syntaxhighlight>
fastfunc isprim num .
if num < 2
return 0
.
i = 2
while i <= sqrt num
if num mod i = 0
return 0
.
i += 1
.
return 1
.
func iserdosprim p .
if isprim p = 0
return 0
.
k = 1
f = 1
while f < p
if isprim (p - f) = 1
return 0
.
k += 1
f *= k
.
return 1
.
for p = 2 to 2499
if iserdosprim p = 1
write p & " "
.
.
</syntaxhighlight>
{{out}}
<pre>
2 101 211 367 409 419 461 557 673 709 769 937 967 1009 1201 1259 1709 1831 1889 2141 2221 2309 2351 2411 2437
</pre>
Line 701 ⟶ 743:
</pre>
=={{header|F_Sharp|F#}}==
| |||