Select[Range[17, 5000, 20], PrimeQ[#]&]