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,1

Links

Robert Price, Table of n, a(n) for n = 1..4058

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

Example

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

Mathematica

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

Prog

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

Crossrefs

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

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

Sequence in context: A206469 A031583 A031763 * A093224 A253529 A297880

Adjacent sequences: A272157 A272158 A272159 * A272161 A272162 A272163

Keyword

nonn

Author

Robert Price, Apr 21 2016

Status

approved