OFFSET
1,3
COMMENTS
All terms > 1 are divisible by 3. - Robert Israel, Sep 05 2014
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
Eric Weisstein's World of Mathematics, Near-Square Prime
MAPLE
select(t -> isprime(t^2+2), [0, 1, seq(3*i, i=1..1000)]); # Robert Israel, Sep 05 2014
MATHEMATICA
lst={}; Do[If[PrimeQ[n^2+2], AppendTo[lst, n]], {n, 3*10^2}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 21 2008 *)
Join[{0, 1}, Select[Range[3, 1000, 6], PrimeQ[#^2 + 2] &]] (* Zak Seidov, Jan 30 2014 *)
PROG
(PARI) select(n -> isprime(n^2+2), [1..500]) \\ Edward Jiang, Sep 05 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 19 2002
STATUS
approved