OFFSET
1,1
MATHEMATICA
s={}; n=1; p1=2; p2=3; p3=5; Do[p4 = NextPrime[p3]; If[PrimeQ[2*p1+1] && (np = NextPrime[2*p1+1]) == 2*p2+1 && (np2 = NextPrime[np]) == 2*p3+3 && NextPrime[np2] == 2*p4-3, AppendTo[s, n]]; p1=p2; p2=p3; p3=p4; n++, {10^5}]; s (* Amiram Eldar, Jul 23 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Feb 21 2005
EXTENSIONS
More terms from Amiram Eldar, Jul 23 2021
STATUS
approved