OFFSET
1,1
COMMENTS
FORMULA
EXAMPLE
a(1)=11 is double safe: (11-1)/2=5; (5-1)/2=2, and double Sophie-Germain: 2*11+1=23; 2*23+1=47.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[safe=(p-1)/2], If[PrimeQ[(safe-1)/2], If[PrimeQ[sophie=2*p+1], If[PrimeQ[2*sophie+1], AppendTo[lst, p]]]]], {n, 3*9!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 24 2009
EXTENSIONS
Edited by R. J. Mathar, Jun 26 2009
STATUS
approved