Wilson primes of order n: Difference between revisions
Added Perl
Thundergnat (talk | contribs) (→{{header|Raku}}: Over the top we go) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 156:
10: 11 1109
11: 17 2713</pre>
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use ntheory <primes factorial>;
my @primes = @{primes( 10500 )};
for my $n (1..11) {
printf "%3d: %s\n", $n, join ' ', grep { $_ >= $n && 0 == (factorial($n-1) * factorial($_-$n) - (-1)**$n) % $_**2 } @primes
}</lang>
{{out}}
<pre> 1: 5 13 563
2: 2 3 11 107 4931
3: 7
4: 10429
5: 5 7 47
6: 11
7: 17
8:
9: 541
10: 11 1109
11: 17 2713</pre>
=={{header|Raku}}==
| |||