Strange unique prime triplets: Difference between revisions

→‎J: fully tacit
(→‎J: add a first draft)
(→‎J: fully tacit)
Line 1,448:
 
=={{header|J}}==
<syntaxhighlight lang="j"> cb=. {{;@:(({. <@,. u@}.)\.)}}.
tripletscomb3=. (#~ 1 p: +/"1)@({~ {.\.]cb cb@i.@#)@(i.&.(p:inv))
triplets=. (#~ 1 p: +/"1)@({~ comb3@#)@(i.&.(p:inv))
 
triplets 30
Line 1,495 ⟶ 1,496:
19 23 29
 
# @triplets 1000
241580</syntaxhighlight>
 
559

edits