use prime;

my @prime = prime::make_prime_table(100 * 10000);
my %prime_hash;
my $c = 0;

foreach my $p (@prime) {
	$prime_hash{$p} = 1;
}
foreach my $p (@prime) {
	my @s = split(//, $p);
	my $no = 0;
	for (my $i = 0; $i < @s; ++$i) {
		my $p = shift(@s);
		push(@s, $p);
		my $n = int(join('', @s));
		if (!exists($prime_hash{$n})) {
			$no = 1;
			last;
		}
	}
	if (!$no) {
		++$c;
	}
}
print $c,"\n";