Prints the sequence indefinitely, Trytry it online or view the first N!
Alternatively §oΛ>←t
could be used instead of ΠtSM<←
.
Explanation
f( )tN -- filter the tail of the naturals ([2,3…]) by:
ΠtSM<←ṙ1m(Lup)§…←→ -- | takes a number as argument, example 11
§… -- | range of..
← -- | | the argument decremented (10)
→ -- | | to the argument incremented (12)
-- | : [10,11,12]
m( ) -- | map the following (example on 12) ..
p -- | | prime factors: [2,2,3]
u -- | | deduplicate: [2,3]
L -- | | length: 2
-- | : [2,1,2]
ṙ1 -- | rotate by 1: [1,2,2]
SM< -- | map the function (< X) over the list where X is ..
← -- | | the first element (1)
-- | : [0,1,1]
t -- | tail: [1,1]
Π -- | product: 1
-- : [11,13,19,23,25,27,29…