Ultra useful primes: Difference between revisions
Added Perl
Thundergnat (talk | contribs) m (clarify) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 22:
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use bigint;
use ntheory 'is_prime';
sub useful {
my @n = @_;
my @u;
for my $n (@n) {
my $p = 2**(2**$n);
LOOP: for (my $k = 1; $k < $p; $k += 2) {
is_prime($p-$k) and push @u, $k and last LOOP;
}
}
@u
}
say join ' ', useful 1..13;</lang>
{{out}}
<pre>1 3 5 15 5 59 159 189 569 105 1557 2549 2439</pre>
=={{header|Raku}}==
| |||