OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi and Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000 (the first 210 terms are from Vincenzo Librandi)
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 844427
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial
MATHEMATICA
Select[Table[n^2 + n + 844427, {n, 0, 60}], PrimeQ] (* Arkadiusz Wesolowski, Mar 04 2011 *)
PROG
(Magma) [n^2+n+844427 : n in [0..60] | IsPrime(n^2+n+844427)]; // Bruno Berselli, Feb 23 2011
(PARI) for(n=0, 60, if(isprime(x=(n^2+n+844427)), print1(x, ", "))); \\ Arkadiusz Wesolowski, Mar 02 2011
(PARI) select(isprime, vector(1000, n, n^2+n+844427)) \\ Charles R Greathouse IV, Feb 23 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, May 18 2009
STATUS
approved