OFFSET
2,1
COMMENTS
Subset of A005384. [From R. J. Mathar, Sep 05 2008]
LINKS
Harvey P. Dale, Table of n, a(n) for n = 2..1000
EXAMPLE
(prime)2*2+1=5(prime), 2*5+3=13(prime), 2*13+5=31(prime).
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p1=2*p+1]&&PrimeQ[p2=2*p1+3]&&PrimeQ[p3=2*p2+5], AppendTo[lst, p]], {n, 10^4}]; lst
pfQ[n_]:=Module[{p1=2n+1, p2}, p2=2p1+3; And@@PrimeQ[{p1, p2, 2p2+5}]]; Select[Prime[ Range[2300]], pfQ] (* Harvey P. Dale, Nov 03 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 04 2008
STATUS
approved