|
%I #2 Mar 31 2012 12:38:19
%S 3,356647,500719,562759,784513,837307,902017,1003963,1258903,1456519,
%T 1893427,2157457,2597953,5771587,6757843,6842503,7731133,10035397,
%U 11155957,11929849,12276643,13395727,14139283,15609367,16675003
%N Primes p of the form : p+p^2+p^3-+2=primes and p+p^2+p^3-+8=primes.
%C 3+9+27=39-+2=primes, 3+9+27=39-+8=primes,...
%t lst={};Do[p=Prime[n];If[PrimeQ[p+p^2+p^3-2]&&PrimeQ[p+p^2+p^3+2]&&PrimeQ[p+p^2+p^3-8]&&PrimeQ[p+p^2+p^3+8],AppendTo[lst,p]],{n,3*9!}];lst
%Y Cf. A154821, A154822, A154823
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 15 2009
|
