nextEmirp[n_Integer] :=
 NestWhile[NextPrime, NextPrime[n], ! emirpQ[#] &]