OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
a={}; Do[If[PrimeQ[n^2+8], AppendTo[a, n]], {n, 0, 10^3}]; a (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
Select[Range[1, 901, 2], PrimeQ[#^2+8]&] (* Harvey P. Dale, Aug 27 2023 *)
PROG
(PARI) is(n)=isprime(n^2+8) \\ Charles R Greathouse IV, Jan 21 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 19 2005
STATUS
approved