Strange unique prime triplets: Difference between revisions
→J: add a first draft
m (→{{header|Quackery}}: corrected output) |
(→J: add a first draft) |
||
Line 1,446:
{{out}}
Same as 'basic' version.
=={{header|J}}==
<syntaxhighlight lang="j"> cb=. {{;@:(({. <@,. u@}.)\.)}}
triplets=. (#~ 1 p: +/"1)@({~ {.\.cb cb@i.@#)@(i.&.(p:inv))
triplets 30
3 5 11
3 5 23
3 5 29
3 7 13
3 7 19
3 11 17
3 11 23
3 11 29
3 17 23
5 7 11
5 7 17
5 7 19
5 7 29
5 11 13
5 13 19
5 13 23
5 13 29
5 17 19
5 19 23
5 19 29
7 11 13
7 11 19
7 11 23
7 11 29
7 13 17
7 13 23
7 17 19
7 17 23
7 17 29
7 23 29
11 13 17
11 13 19
11 13 23
11 13 29
11 17 19
11 19 23
11 19 29
13 17 23
13 17 29
13 19 29
17 19 23
19 23 29
# triplets 1000
241580</syntaxhighlight>
=={{header|Java}}==
| |||