Rest@NestList[nextEmirp, 1, 20]