# code: http://golf.shinh.org/reveal.rb?Primey+Factory/tails_1644993720&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

#(implicit map with implicit range):[int] 
    fstInt #($):int 
    \B A 
    [ #(min):int 
        B #($):int 
        / #(foldr1):int 
            + #(concat):[int] 
                =~ #(group by (also sorts)):[[int]] 
                    | #(filter):[int] 
                        + #(add):[int] 
                            ~ #(auto = 1):auto 
                            , #(range from 1):[int] 
                                B #($):int 
                        \C 
                        - #(subtract):int 
                            3 #(integer):int 
                            , #(length):int 
                                | #(filter):[int] 
                                    , #(range from 1):[int] 
                                        C #($):int 
                                    \D 
                                    - #(subtract):int 
                                        ~ #(auto = 1):auto 
                                        % #(modulus):int 
                                            C #(@):int 
                                            D #($):int 
                    \E 
                    , #(length):int 
                        <~ #(take while):[int] 
                            \ #(reverse):[int] 
                                `@ #(to base):[int] 
                                    E #($):int 
                                    B #(@):int 
                            \F 
                            - #(subtract):int 
                                ~ #(auto = 1):auto 
                                F #($):int 
            \H G 
            G #(@):int