OFFSET
1,1
COMMENTS
There are 106 of these numbers below 10^5.
EXAMPLE
12 is a term: 12 = 2*2*3, and 11 and 13 primes.
MATHEMATICA
Select[Range[9! ], Plus@@Last/@FactorInteger[ # ]==3&&PrimeQ[ #-1]&&PrimeQ[ #+1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 04 2009
STATUS
approved