OFFSET
1,1
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..1000
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 5939831
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial
MATHEMATICA
Select[Table[2*n^2 + 5939831, {n, 0, 41}], PrimeQ] (* Arkadiusz Wesolowski, Mar 03 2011 *)
PROG
(Magma) [2*n^2+5939831 : n in [0..41] | IsPrime(2*n^2+5939831)]; // Arkadiusz Wesolowski, Mar 03 2011
(PARI) for(n=0, 41, if(isprime(x=(2*n^2+5939831)), print1(x, ", "))); \\ Arkadiusz Wesolowski, Mar 03 2011
(PARI) isprime(vector(41, n, 2*n^2+5939831)) \\ Arkadiusz Wesolowski, Mar 03 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Jun 02 2009
STATUS
approved