A272160 Primes of the form abs(8n^2 - 488n + 7243) in order of increasing nonnegative values of n.

7243, 6763, 6299, 5851, 5419, 5003, 4603, 4219, 3851, 3499, 3163, 2843, 2539, 2251, 1979, 1723, 1483, 1259, 1051, 859, 683, 523, 379, 251, 139, 43, 37, 101, 149, 181, 197, 197, 181, 149, 101, 37, 43, 139, 251, 379, 523, 683, 859, 1051, 1259, 1483, 1723, 1979

Offset: 1

Author

Robert Price, Apr 21 2016

Keywords

• nonn

Examples

			5419 is in this sequence since 8*4^2 - 488*4 + 7243 = 128-1952+7243 = 5419 is prime.
		

Links

• Robert Price, Table of n, a(n) for n = 1..4058
• Eric Weisstein's World of Mathematics, Prime-Generating Polynomials

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.

Cf. A271980, A272074, A272075, A272118, A272159.

Programs

Mathematica

n = Range[0, 100]; Select[Abs[8n^2 - 488n + 7243], PrimeQ[#] &]

PARI

lista(nn) = for(n=0, nn, if(isprime(p=abs(8*n^2-488*n+7243)), print1(p, ", "))); \\ Altug Alkan, Apr 21 2016