Neighbour primes: Difference between revisions

Content added Content deleted
(→‎J: generate the triples directly, and by using the '2 f/\ y' SC)
m (→‎J: simplify)
Line 791: Line 791:


=={{header|J}}==
=={{header|J}}==
<syntaxhighlight lang="j"> (#~ 1 p: {:"1) 2 (, , 2 + *)/\ p: i. _1 p: 500
<syntaxhighlight lang="j"> (#~ 1 p: {:"1) 2 (, 2 + */)\ i.&.(p:inv) 500
3 5 17
3 5 17
5 7 37
5 7 37