Find adjacent primes which differ by a square integer: Difference between revisions
Content added Content deleted
(J) |
|||
Line 536: | Line 536: | ||
240 IF Q = 1 THEN P2 = P: P = T: RETURN |
240 IF Q = 1 THEN P2 = P: P = T: RETURN |
||
250 GOTO 220</lang> |
250 GOTO 220</lang> |
||
=={{header|J}}== |
|||
<lang J> #(,.-~/"1) p:0 1+/~I.(= <.)6.5>.%:2-~/\p:i.p:inv 1e6 NB. count them |
|||
26 |
|||
(,.-~/"1) p:0 1+/~I.(= <.)6.5>.%:2-~/\p:i.p:inv 1e6 NB. show them |
|||
89689 89753 64 |
|||
107377 107441 64 |
|||
288583 288647 64 |
|||
367957 368021 64 |
|||
381103 381167 64 |
|||
396733 396833 100 |
|||
400759 400823 64 |
|||
445363 445427 64 |
|||
623107 623171 64 |
|||
625699 625763 64 |
|||
637003 637067 64 |
|||
710713 710777 64 |
|||
725209 725273 64 |
|||
779413 779477 64 |
|||
801883 801947 64 |
|||
803749 803813 64 |
|||
821677 821741 64 |
|||
832519 832583 64 |
|||
838249 838349 100 |
|||
844777 844841 64 |
|||
883807 883871 64 |
|||
912103 912167 64 |
|||
919447 919511 64 |
|||
954763 954827 64 |
|||
981823 981887 64 |
|||
997813 997877 64</lang> |
|||
=={{header|jq}}== |
=={{header|jq}}== |