sub isPrime {
  ('1' x $_[0]) !~ /^(11+)\1+$/;
}