OFFSET
1,1
COMMENTS
Except term 7, same as A181602.
MATHEMATICA
Select[6*Range[3000]-1, PrimeQ[#]&&PrimeOmega[#-1]==2&&AnyTrue[ {#+2, Sqrt[ #+2]}, PrimeQ]&] (* Harvey P. Dale, Jul 01 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Nov 18 2010
STATUS
approved