Erdős-primes: Difference between revisions
Added Easylang
Tag: Undo |
(Added Easylang) |
||
Line 702:
</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>
=={{header|F_Sharp|F#}}==
Line 718 ⟶ 760:
7875th Erdos prime is 999721
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-02-05}}
| |||