Additive primes: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add ABC) |
Not a robot (talk | contribs) (Add SETL) |
||
Line 3,609: | Line 3,609: | ||
Found 54 additive primes < 500. |
Found 54 additive primes < 500. |
||
</pre> |
</pre> |
||
=={{header|SETL}}== |
|||
<syntaxhighlight lang="setl">program additive_primes; |
|||
loop for i in [i : i in [1..499] | additive_prime i] do |
|||
nprint(lpad(str i, 4)); |
|||
if (n +:= 1) mod 10 = 0 then |
|||
print; |
|||
end if; |
|||
end loop; |
|||
print; |
|||
print("There are " + str n + " additive primes less than 500."); |
|||
op additive_prime(n); |
|||
return prime n and prime digitsum n; |
|||
end op; |
|||
op prime(n); |
|||
return n>=2 and not exists d in {2..floor sqrt n} | n mod d = 0; |
|||
end op; |
|||
op digitsum(n); |
|||
loop while n>0; |
|||
s +:= n mod 10; |
|||
n div:= 10; |
|||
end loop; |
|||
return s; |
|||
end op; |
|||
end program; |
|||
</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|Sidef}}== |
=={{header|Sidef}}== |