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