RosettaCodeData/Task/Repunit-primes/J/repunit-primes.j

4 lines
84 B
Plaintext

repunitp=. 1 p: ^&x: %&<: [
(2 + i. 15) ([ ;"0 repunitp"0/ <@# ]) i.&.(p:inv) 1000