Anonymous user
Prime numbers which contain 123: Difference between revisions
→{{header|Phix}}
Catskill549 (talk | contribs) (added AWK) |
|||
Line 361:
Found 451 “123” primes less than 1_000_000.</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict;
use warnings;
use ntheory qw( primes );
my @hundredthousand = grep /123/, @{ primes(1e5) };
my $million = grep /123/, @{ primes(1e6) };
print "@hundredthousand\n\nmillion count is $million\n" =~ s/.{70}\K /\n/gr;</lang>
{{out}}
<pre>
1123 1231 1237 8123 11239 12301 12323 12329 12343 12347 12373 12377 12379
12391 17123 20123 22123 28123 29123 31123 31231 31237 34123 37123 40123
41231 41233 44123 47123 49123 50123 51239 56123 59123 61231 64123 65123
70123 71233 71237 76123 81233 81239 89123 91237 98123
million count is 451
</pre>
=={{header|Phix}}==
| |||