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
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 07 2008
EXTENSIONS
More terms from Vincenzo Librandi, Apr 28 2010
STATUS
approved