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