Additive primes: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) (→{{header|REXX}}: ooRexx conformance and simplification) |
Not a robot (talk | contribs) (Add ABC) |
||
Line 260: | Line 260: | ||
Number found : 54 |
Number found : 54 |
||
</pre> |
</pre> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="abc">HOW TO REPORT prime n: |
|||
REPORT n>=2 AND NO d IN {2..floor root n} HAS n mod d = 0 |
|||
HOW TO RETURN digit.sum n: |
|||
SELECT: |
|||
n<10: RETURN n |
|||
ELSE: RETURN (n mod 10) + digit.sum floor (n/10) |
|||
HOW TO REPORT additive.prime n: |
|||
REPORT prime n AND prime digit.sum n |
|||
PUT 0 IN n |
|||
FOR i IN {1..499}: |
|||
IF additive.prime i: |
|||
WRITE i>>4 |
|||
PUT n+1 IN n |
|||
IF n mod 10 = 0: WRITE / |
|||
WRITE / |
|||
WRITE "There are `n` additive primes less than 500."/</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 2 3 5 7 11 23 29 41 43 47 |
|||
61 67 83 89 101 113 131 137 139 151 |
|||
157 173 179 191 193 197 199 223 227 229 |
|||
241 263 269 281 283 311 313 317 331 337 |
|||
353 359 373 379 397 401 409 421 443 449 |
|||
461 463 467 487 |
|||
There are 54 additive primes less than 500.</pre> |
|||
=={{header|Action!}}== |
=={{header|Action!}}== |
||
{{libheader|Action! Sieve of Eratosthenes}} |
{{libheader|Action! Sieve of Eratosthenes}} |