OFFSET
1,1
MATHEMATICA
Select[Plus @@@ Partition[Select[Range[7000], PrimeQ], 3, 1], And @@ PrimeQ[# + {0, 2}] &] (* Amiram Eldar, Jun 06 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 06 2021
STATUS
approved