Pierpont primes: Difference between revisions

'[lprimes _ lprimesswap '[ 1 @ factors [ { 2 3 } member? ] all? ]

<lazy-filter> ltake list>array 10 group simple-table. ] call ;