Wilson primes of order n: Difference between revisions
m
→{{header|jq}}: indentation
m (→{{header|jq}}: indentation) |
|||
Line 384:
[emit_until( . >= $limit; primes)
| select(. as $p
| $p >= $n and
(($facts[$n - 1] * $facts[$p - $n] - ($n|sgn))
% ($p*$p) == 0 )) ])" );
11000 | wilson_primes</lang>
Line 405 ⟶ 406:
11 : [17,2713]
</pre>
=={{header|Julia}}==
| |||