Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A272160
Primes of the form abs(8n^2 - 488n + 7243) in order of increasing nonnegative values of n.
16
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
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
KEYWORD
nonn
AUTHOR
Robert Price, Apr 21 2016
STATUS
approved