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