A050267 Primes or negative values of primes in the sequence b(n) = 47*n^2 - 1701*n + 10181, n >= 0.
10181, 8527, 6967, 5501, 4129, 2851, 1667, 577, -419, -1321, -2129, -2843, -3463, -3989, -4421, -4759, -5003, -5153, -5209, -5171, -5039, -4813, -4493, -4079, -3571, -2969, -2273, -1483, -599, 379, 1451, 2617, 3877, 5231, 6679, 8221, 9857, 11587, 13411, 15329, 17341, 19447, 21647, 31387
Offset: 1
References
- R. K. Guy, Unsolved Problems in Number Theory, 3rd ed., Springer, 2004 (ISBN 0-387-20860-7); see Section A17, p. 59.
- Paulo Ribenboim, The Little Book of Bigger Primes, Second Edition, Springer-Verlag New York, 2004. See p. 147.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- G. W. Fung and H. C. Williams, Quadratic polynomials which have a high density of prime values, Math. Comput. 55(191) (1990), 345-353.
- Carlos Rivera, Problem 12: Prime producing polynomials, The Prime Puzzles & Problems Connection.
- Jitender Singh, Prime numbers and factorization of polynomials, arXiv:2411.18366 [math.NT], 2024.
- Eric Weisstein's World of Mathematics, Prime-Generating Polynomial.
Crossrefs
Programs
-
Mathematica
lst={};Do[p=47*n^2-1701*n+10181;If[PrimeQ[p],AppendTo[lst,p]],{n,0,5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 29 2009 *) Select[Table[47n^2-1701n+10181,{n,0,50}],PrimeQ] (* Harvey P. Dale, Oct 03 2011 *)
-
PARI
[n | n <- apply(m->47*m^2-1701*m+10181, [0..100]), isprime(abs(n))] \\ Charles R Greathouse IV, Jun 18 2017
Extensions
Edited by N. J. A. Sloane, May 10 2007
Further edited by Klaus Brockhaus, Mar 20 2010
More terms (to distinguish from quadratic) from Charles R Greathouse IV, Jun 18 2017
Comments