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