Revision as of 19:32, 18 October 2023 (view source) Aerobar (talk \| contribs) (added RPL) ← Older edit		Revision as of 07:37, 19 October 2023 (view source) Querfeld (talk \| contribs) m (→‎J: simplify) Newer edit →
Line 732: <syntaxhighlight lang="j"> wilson=. 0 = (:@] \| _1&^@[ -~ -~ &! <:@[)^:<: (>: i. 11x) (~~;/@~~[ ,.;"0 wilson"0/ <@# ]) i.&.(p:inv) 11000 ┌──┬───────────────┐ │1 │5 13 563 │

Wilson primes of order n (view source)