# project euler 49

# pervasive primality
IsPrime ← =1/+≠1°/×

S ← (
  ⍜-⇡1000 10000
  +¤×⇡3:
  ▽⊸(/↧IsPrime⍉)
  ▽⊸(↧⊃(
      ≡/↧≡₁(=4⧻◴)
    | ≡(=4⧻◴/⊂)
    )⊥10)
)
∩⌞▽⊸(⊸≡◇(>0⧻)⍚S) +1⇡4500