OFFSET
1,1
COMMENTS
This is a subsequence of A063638.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
EXAMPLE
487 is prime, 486 = 2*3^5 is not semiprime and 485 = 5*97 is semiprime.
MATHEMATICA
SemiPrimeQ[n_Integer] := If[Abs[n] < 2, False, (2 == Plus @@ Transpose[FactorInteger[Abs[n]]][[2]])]; Select[Prime[Range[200]], ! SemiPrimeQ[# - 1] && SemiPrimeQ[# - 2] &] (* T. D. Noe, Sep 27 2012 *)
PROG
(PARI) forprime(p=3, 9999, bigomega(p-2)==2 && bigomega(p-1)!=2 & print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antonio Roldán, Sep 27 2012
STATUS
approved