%I #8 Mar 02 2019 23:30:39
%S 5,11,2591,4127,10427,11831,15887,28547,56921,60257,61331,62927,65717,
%T 70487,74411,77417,77687,81281,87221,100391,104087,115301,116687,
%U 121367,124181,129287,148691,149111,158141,173741,199151,208961
%N Primes p such that p+2, n*(p+2)+6 and p*(p+2)+8 are also prime.
%H Harvey P. Dale, <a href="/A130735/b130735.txt">Table of n, a(n) for n = 1..1000</a>
%p a:=proc(n) local p: p:=ithprime(n): if isprime(p+2)=true and isprime(p*(p+2)+6) =true and isprime(p*(p+2)+8)=true then p else end if end proc: seq(a(n),n= 1 .. 20000); # _Emeric Deutsch_, Jul 25 2007
%t apQ[n_]:=Module[{n2=n(n+2)},And@@PrimeQ[{n+2,n2+6,n2+8}]]; Select[Prime[Range[ 20000]],apQ] (* _Harvey P. Dale_, Apr 07 2013 *)
%K nonn
%O 1,1
%A _Ray G. Opao_, Jul 06 2007
%E More terms from _Emeric Deutsch_, Jul 25 2007