RosettaCodeData/Task/Repunit-primes/J/repunit-primes.j
2023-12-16 21:33:55 -08:00

3 lines
84 B
Text

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