Problem: prime powers

Code: prime+powers/tails_1645247976

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)

| (filter) 
    ; (save) -->let( A ) 
        >> (tail) 
            , (range from 1) 
                ;$ (= sndInt) 
    ~ (not) 
    % (modulus) <--arg( B ) 
        ^ (pow) 
            / (foldr1) 
                | (filter) 
                    @ (= A) 
                    ~ (not) 
                    % (modulus) <--arg( C ) 
                        @ (= B) 
                        (implicit arg = C) 
                (implicit arg = E) <--arg( E D ) 
            (implicit arg = B) 
        (implicit arg = B)