|
%I #15 Dec 13 2019 13:07:01
%S 89,359,647,953,1277,1619,1979,2357,2753,3167,4049,5003,6029,7127,
%T 8297,9539,10853,12239,13697,15227,16829,18503,20249,22067,23957,
%U 25919,27953,30059,32237,34487,36809,41669,44207,46817,49499,52253
%N Primes of the form 36*n^2 - 810*n + 2753, n >= 0, sorted.
%H Vincenzo Librandi, <a href="/A022464/b022464.txt">Table of n, a(n) for n = 1..500</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomial</a>.
%t Take[Sort[Select[Table[36n^2-810n+2753,{n,0,1000}], PrimeQ[#] && Positive[#]&]], 40] (* _Harvey P. Dale_, Oct 02 2011 *)
%Y Cf. A050268.
%K nonn,less
%O 1,1
%A _N. J. A. Sloane_, Jun 12 2001
|
