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