|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|