Data update

Task/Repunit-primes/Quackery/repunit-primes.quackery

@@ -0,0 +1,19 @@
+   [ 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 ]