table[factor[2n^2-4n+31],{n,1,40}]