Safe and Sophie Germain primes: Difference between revisions

=={{header|Perl}}==

<lang perl>#!/usr/bin/perl

use strict; # https://rosettacode.org/wiki/Safe_and_Sophie_Germain_primes

use warnings;

use ntheory qw( forprimes is_prime);

my @want;

forprimes { is_prime(2 * $_ + 1) and (50 == push @want, $_)

and print("@want\n" =~ s/.{65}\K /\n/gr) + exit } 2, 1e9;</lang>

{{out}}

<pre>

2 3 5 11 23 29 41 53 83 89 113 131 173 179 191 233 239 251 281 293

359 419 431 443 491 509 593 641 653 659 683 719 743 761 809 911 953

1013 1019 1031 1049 1103 1223 1229 1289 1409 1439 1451 1481 1499

</pre>