A160548 Primes of the form k^2 + k + 844427.
844427, 844429, 844433, 844439, 844447, 844457, 844469, 844483, 844499, 844517, 844609, 844733, 844769, 844847, 845027, 845129, 845183, 845357, 845833, 845909, 845987, 846067, 846149, 846233, 846407, 846589, 846779, 846877, 846977, 847079, 847507, 847967, 848087
Offset: 1
Keywords
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
Programs
-
Magma
[n^2+n+844427 : n in [0..60] | IsPrime(n^2+n+844427)]; // Bruno Berselli, Feb 23 2011
-
Mathematica
Select[Table[n^2 + n + 844427, {n, 0, 60}], PrimeQ] (* Arkadiusz Wesolowski, Mar 04 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
Comments