A138338 Primes of the form n^2+8.
17, 89, 233, 449, 1097, 2609, 3257, 6569, 7577, 12329, 13697, 15137, 16649, 18233, 19889, 21617, 23417, 31337, 35729, 45377, 47969, 65033, 77849, 81233, 99233, 103049, 106937, 119033, 123209, 131777, 159209, 173897, 216233, 221849, 227537
Offset: 1
Keywords
Programs
-
Magma
[ a: n in [0..900] | IsPrime(a) where a is n^2+8] // Vincenzo Librandi, Nov 24 2010
-
Mathematica
Intersection[Table[n^2+8,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... For[i=8,i<=8,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];Print["n^2+",i,",",a];i++ ]
Extensions
More terms from Vincenzo Librandi, Apr 28 2010