sub is_prime { ($_[0] == 2 ? 1 : ($_[0] % 2 ? not grep{ $_[0] % ($_ * 2 + 1) == 0 } (1..(sqrt($_[0]) / 2)) : 0)) }

my $n = 2;
for(1..50){
	$n++ while(($n ne reverse $n) or not is_prime($n));
	print $n++, "\n";
}