table[primeQ[x^2+x+17],{x,1,17}]