%I #4 Dec 12 2012 16:04:22
%S 0,1,28,103,403,613,658,1018,1138,1318,1678,2023,2188,2383,2653,3418,
%T 3853,3958,4333,4393,4828,5278,5908,6163,8218,8428,8683,8848,9028,
%U 9043,9478,9868,10003,10243,10978,11518,11533,12133,12493,13603,13633,14593
%N Numbers n with property that n^3+n^2+{3,5} are twin primes.
%C All positive terms == 1 mod 3.
%H Harvey P. Dale, <a href="/A168254/b168254.txt">Table of n, a(n) for n = 0..1000</a>
%t Union[Table[If[PrimeQ[n^3+n^2+3]&&PrimeQ[n^3+n^2+5],n,0],{n,1,40000,3}]]
%t Select[Range[0, 15000], And @@ PrimeQ[#^3 + #^2 + {3, 5}] &] (* _Harvey P. Dale_, Dec 12 2012 *)
%K nonn
%O 0,3
%A _Zak Seidov_, Nov 21 2009