OFFSET
1,1
MATHEMATICA
SemiPrimeQ[n_] := (n>1) && (2==Plus@@(Transpose[FactorInteger[n]][[2]])); Select[Prime[Range[150]], SemiPrimeQ[ #+2] && !IntegerQ[Sqrt[ #+2]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 01 2006
STATUS
approved