Quadrat special primes: Difference between revisions
Added Perl
m (→{{header|Phix}}: added personal tag) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 247:
12323 12647 12791 13367 13691 14591 14627 14771 15671
</pre>
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use feature 'say';
use ntheory 'is_prime';
my @sp = my $previous = 2;
do {
my($next,$n);
while () { last if is_prime( $next = $previous + ++$n**2 ) }
push @sp, $next;
$previous = $next;
} until $sp[-1] >= 16000;
pop @sp and say (sprintf '%-7d'x@sp, @sp) =~ s/.{1,$#sp}\K\s/\n/gr;</lang>
{{out}}
<pre>2 3 7 11 47 83 227
263 587 911 947 983 1019 1163
1307 1451 1487 1523 1559 2459 3359
4259 4583 5483 5519 5843 5879 6203
6779 7103 7247 7283 7607 7643 8219
8363 10667 11243 11279 11423 12323 12647
12791 13367 13691 14591 14627 14771 15671</pre>
=={{header|Phix}}==
| |||