[ base put
     1 temp put
     [] 1 1000 times
       [ temp share prime if
           [ dup prime if
             [ dip [ i^ 1+ join ] ] ]
         base share * 1+
         1 temp tally ]
     drop
     temp release
     base release ]                   is repunitprimes ( n --> [ )

   15 times
     [ i^ 2 +
       dup 10 < if sp
       dup echo
       say ": "
       repunitprimes echo
       cr ]