In[1]:= Select[Table[N,{N,100,200}],PrimeQ]
Out[1]= {101,103,107,109,113,127,131,137,139,149,151,157,
163,167,173,179,181,191,193,197,199}