%I #2 Mar 31 2012 12:38:19
%S 3,37,157,373,877,2083,3607,4153,6043,6577,8737,10993,11677,14029,
%T 16333,18253,19429,20023,20443,20743,20899,21757,23227,24733,24859,
%U 28477,28687,29347,30223,32203,32833,35869,36529,37447,38833,42073,43789
%N Primes p of the form : p+p^2+p^3-+8=prime.
%t lst={};Do[p=Prime[n];If[PrimeQ[p+p^2+p^3-8]&&PrimeQ[p+p^2+p^3+8],AppendTo[lst,p]],{n,2*8!}];lst
%Y Cf. A154821, A154822
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 15 2009
|