Additive primes: Difference between revisions
→{{header|EasyLang}}
(add RPL) |
|||
Line 1,462:
353 359 373 379 397 401 409 421 443 449 461 463 467 487
There are 54 additive primes below 500</pre>
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
proc isprime x . r .
r = 1
for i = 2 to sqrt x
if x mod i = 0
r = 0
break 2
.
.
.
proc digsum n . sum .
sum = 0
while n > 0
sum += n mod 10
n = n div 10
.
.
for i = 2 to 500
call isprime i r
if r = 1
call digsum i s
call isprime s r
if r = 1
write i & " "
.
.
.
print ""
</syntaxhighlight>
=={{header|Erlang}}==
| |||