A217439 Primes or negative values of primes of the form 8*n^2 - 298*n + 2113 for n >= 0.

2113, 1823, 1549, 1291, 1049, 823, 613, 419, 241, 79, -67, -197, -311, -409, -491, -557, -607, -641, -659, -661, -647, -617, -571, -509, -431, -337, -227, -101, 41, 199, 373, 563, 769, 991, 1229, 1483, 1753, 2039, 2341, 2659, 3343, 3709, 4091, 4903, 5333, 5779, 6719, 7213

Offset: 1

Author

Pedja Terzic, Oct 03 2012

Keywords

• sign
• easy
• less

Comments

Terms are listed in the order of appearance. The absolute values are prime for 0 <= n <= 39.

Links

• Eric Weisstein's World of Mathematics, Prime Generating Polynomials

Crossrefs

Cf. A050267, A050268, A217440.

Programs

Mathematica

Select[Table[8*n^2 - 298*n + 2113, {n, 0, 50}], PrimeQ[#]&]

PARI

[n | n <- apply(m->8*m^2-298*m+2113, [0..100]), isprime(abs(n))] \\ Charles R Greathouse IV, Jun 18 2017

Extensions

More terms (to distinguish from quadratic) from Charles R Greathouse IV, Jun 18 2017