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