Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A272284
Numbers n such that 43*n^2 - 537*n + 2971 is prime.
11
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 49, 50, 51, 55, 56, 57, 60, 64, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 79, 80, 81
OFFSET
1,3
COMMENTS
35 is the smallest number not in this sequence.
LINKS
Eric Weisstein's World of Mathematics, Prime-Generating Polynomials
EXAMPLE
4 is in this sequence since 43*4^2 - 537*4 + 2971 = 688-2148+2971 = 1511 is prime.
MATHEMATICA
Select[Range[0, 100], PrimeQ[43#^2 - 537# + 2971] &]
PROG
(PARI) lista(nn) = for(n=0, nn, if(ispseudoprime(43*n^2 - 537*n + 2971), print1(n, ", "))); \\ Altug Alkan, Apr 24 2016
KEYWORD
nonn
AUTHOR
Robert Price, Apr 24 2016
STATUS
approved