Triplet of three numbers: Difference between revisions

=={{header|Quackery}}==

<lang Quackery> [ 1 swap times [ i 1+ * ] ] is ! ( n --> n )

[ dup 2 < iff

[ drop false ] done

dup 1 - ! 1+

swap mod 0 = ] is prime ( n --> b )

[] 3000 times

[ i^ 2 *

dup 1 - prime iff

[ dup 3 + prime iff

[ dup 5 + prime iff

join else drop ]

else drop ]

else drop ]

echo</lang>

{{out}}

<pre>[ 8 14 38 68 98 104 194 224 278 308 458 614 824 854 878 1088 1298 1424 1448 1484 1664 1694 1784 1868 1874 1994 2084 2138 2378 2684 2708 2798 3164 3254 3458 3464 3848 4154 4514 4784 5228 5414 5438 5648 5654 5738 ]</pre>