5 lines
321 B
Text
5 lines
321 B
Text
IsPrime ← =1⧻°/× # °/× finds primes factors.
|
||
▽⊸≡IsPrime +1⇡1000 # Find primes in the target range.
|
||
▽⊙(⍉⊂+1⇡⧻⟜⊟:)⊸≡IsPrime\+. # Scan sums, only keeping prime sums.
|
||
&p$"Sequences of primes starting at 2 with prime sums\nLength\tLast\tSum"
|
||
≡(&p$"_\t_\t_" °[⊙⊙∘])
|