OFFSET
1,1
MATHEMATICA
Differences[Select[6*Range[3000]-1, PrimeQ[#]&&PrimeOmega[#-1]==2&&AnyTrue[ {#+2, Sqrt[#+2]}, PrimeQ]&]] (* Harvey P. Dale, Jul 01 2022 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Nov 19 2010
EXTENSIONS
a(21) ff. corrected by Georg Fischer, Aug 31 2020
STATUS
approved