Rest@NestWhileList[nextEmirp, 7700, # < 8000 &]