7 lines
230 B
Plaintext
7 lines
230 B
Plaintext
# project euler 47
|
||
|
||
⍜-⇡2 140000 # some numbers
|
||
⍉°/× # pervasively prime factorize
|
||
⧈₄(/↧=4≡(⧻◴▽⊸≠1)) # count unique primes for consecutive numbers
|
||
⊢+2⊚ # get first such
|