19 lines
407 B
Text
19 lines
407 B
Text
[ 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 ]
|