Jump to content

Wilson primes of order n: Difference between revisions

m
→‎J: simplify
(added RPL)
m (→‎J: simplify)
Line 732:
<syntaxhighlight lang="j"> wilson=. 0 = (*:@] | _1&^@[ -~ -~ *&! <:@[)^:<:
(>: i. 11x) (;/@[ ,.;"0 wilson"0/ <@# ]) i.&.(p:inv) 11000
┌──┬───────────────┐
│1 │5 13 563 │
559

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.