OFFSET
0,3
COMMENTS
All positive terms == 1 mod 3.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
Union[Table[If[PrimeQ[n^3+n^2+3]&&PrimeQ[n^3+n^2+5], n, 0], {n, 1, 40000, 3}]]
Select[Range[0, 15000], And @@ PrimeQ[#^3 + #^2 + {3, 5}] &] (* Harvey P. Dale, Dec 12 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 21 2009
STATUS
approved