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

4 lines
84 B
Text
Raw Permalink Normal View History

2023-12-16 21:33:55 -08:00
repunitp=. 1 p: ^&x: %&<: [
(2 + i. 15) ([ ;"0 repunitp"0/ <@# ]) i.&.(p:inv) 1000