Select[Range[3, 2003, 20], PrimeQ[ # ]&]