#!/usr/bin/perl

use v5.30;
use strict;

open my $pfh, '<46-primes.txt' or die;
my %primes = map { chomp; $_ => 1 } <$pfh>;
my $b = 109300;
my $c = 126300;

my $h = 0;
while ($b <= $c) {
	$h++ if !defined $primes{$b};
	$b += 17;
}
say $h;
