A217604 Primes or negative values of primes of the form 59*n^2 - 1873*n + 8941 for n>=0.

8941, 7127, 5431, 3853, 2393, 1051, -173, -1279, -2267, -3137, -3889, -4523, -5039, -5437, -5717, -5879, -5923, -5849, -5657, -5347, -4919, -4373, -3709, -2927, -2027, -1009, 127, 1381, 2753, 4243, 5851, 7577, 9421, 11383, 13463, 15661, 17977, 20411, 22963, 25633, 31327, 34351

Offset: 1

Author

Pedja Terzic, Oct 08 2012

Keywords

• sign
• easy
• less

Comments

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

Links

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

Crossrefs

Cf. A050267, A050268, A217439, A217440.

Programs

Mathematica

Select[Table[59*n^2-1873*n+8941,{n, 0, 50}], PrimeQ[#]&]

PARI

[n | n <- apply(m->59*m^2-1873*m+8941, [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