2017/46.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 open my $pfh, '<46-primes.txt' or die;
   7 my %primes = map { chomp; $_ => 1 } <$pfh>;
   8 my $b = 109300;
   9 my $c = 126300;
  10
  11 my $h = 0;
  12 while ($b <= $c) {
  13         $h++ if !defined $primes{$b};
  14         $b += 17;
  15 }
  16 say $h;