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