Anonymous user
Primality by Wilson's theorem: Difference between revisions
→{{header|Julia}}
m (corrected a statement.) |
|||
Line 514:
The first 40 Wilson primes above 7900 are: [7901, 7907, 7919, 7927, 7933, 7937, 7949, 7951, 7963, 7993, 8009, 8011, 8017, 8039, 8053, 8059, 8069, 8081, 8087, 8089, 8093, 8101, 8111, 8117, 8123, 8147, 8161, 8167, 8171, 8179, 8191, 8209, 8219, 8221, 8231, 8233, 8237, 8243, 8263, 8269]
</pre>
=={{header|PARI/GP}}==
Wilson(n)=prod(i=1,t-1,Mod(i,t))==-1
GP</lang>
=={{header|Perl}}==
| |||