login
A138338
Primes of the form n^2+8.
2
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,1
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++ ]
PROG
(Magma) [ a: n in [0..900] | IsPrime(a) where a is n^2+8] // Vincenzo Librandi, Nov 24 2010
CROSSREFS
Sequence in context: A248400 A139947 A162930 * A267820 A200670 A057638
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Vincenzo Librandi, Apr 28 2010
STATUS
approved