Prime numbers p for which the sum of primes less than or equal to p is prime: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
(Added Uiua solution) |
||
Line 779: | Line 779: | ||
prime: 929 prime sum: 66463 |
prime: 929 prime sum: 66463 |
||
prime: 953 prime sum: 70241 |
prime: 953 prime sum: 70241 |
||
</pre> |
|||
=={{header|Uiua}}== |
|||
{{works with|Uiua|0.10.0-dev.1}} |
|||
<syntaxhighlight lang="Uiua"> |
|||
# Build primes by sieve. Limit found by inspection. |
|||
⇌◌⍢(▽≠0◿⊃⊢(.↘1)⟜(⊂⊢)|>0⧻) ↘2⇡80000 [] |
|||
# Build running sums. |
|||
\+▽<1000... |
|||
# # Find sums that are prime, then prettify. |
|||
⧻.⍉⊟:∩(⬚0▽),⟜∊ |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
╭─ |
|||
╷ 2 2 |
|||
3 5 |
|||
7 17 |
|||
13 41 |
|||
37 197 |
|||
43 281 |
|||
281 7699 |
|||
311 8893 |
|||
503 22039 |
|||
541 24133 |
|||
557 25237 |
|||
593 28697 |
|||
619 32353 |
|||
673 37561 |
|||
683 38921 |
|||
733 43201 |
|||
743 44683 |
|||
839 55837 |
|||
881 61027 |
|||
929 66463 |
|||
953 70241 |
|||
╯ |
|||
21 |
|||
</pre> |
</pre> |
||