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
Keywords
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
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
Comments