Table[NextPrime[i, -1], {i, 1, 101}]