|
%I
%S 5939831,5939833,5939839,5939849,5939863,5939881,5939903,5939929,
%T 5939959,5939993,5940169,5940223,5940343,5940479,5940553,5940799,
%U 5940889,5940983,5941081,5941289,5941399,5942009,5942569,5942719,5942873,5943031,5943193
%N Primes of the form 2*n^2 + 5939831.
%H Arkadiusz Wesolowski, <a href="/A161008/b161008.txt">Table of n, a(n) for n = 1..1000</a>
%H G. L. Honaker, Jr. and Chris Caldwell, <a href="http://primes.utm.edu/curios/cpage/18756.html">Prime Curios! 5939831</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomial</a>
%t Select[Table[2*n^2 + 5939831, {n, 0, 41}], PrimeQ] (* _Arkadiusz Wesolowski_, Mar 03 2011 *)
%o (MAGMA) [2*n^2+5939831 : n in [0..41] | IsPrime(2*n^2+5939831)]; // _Arkadiusz Wesolowski_, Mar 03 2011
%o (PARI) for(n=0, 41, if(isprime(x=(2*n^2+5939831)), print1(x, ", "))); \\ _Arkadiusz Wesolowski_, Mar 03 2011
%o (PARI) isprime(vector(41, n, 2*n^2+5939831)) \\ _Arkadiusz Wesolowski_, Mar 03 2011
%Y Cf. A007641, A050265.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Jun 02 2009
|
