OFFSET
1,1
COMMENTS
Number k such that both k-1 and k+1 are in A033992.
EXAMPLE
131 is sandwiched between 130 = 2*5*13 and 132 = 2^2*3*11. Both 130 and 132 have exactly three prime factors. Thus, 131 is in this sequence.
MATHEMATICA
Select[Range[1000], Length[FactorInteger[# + 1]] == 3 && Length[FactorInteger[# - 1]] == 3 &]
PROG
(Python)
from sympy import factorint
def isA033992(n): return len(factorint(n)) == 3
def ok(n): return isA033992(n-1) and isA033992(n+1)
print([k for k in range(700) if ok(k)]) # Michael S. Branicky, Sep 10 2022
(PARI) is(n)=omega(n-1)==3 && omega(n+1)==3 \\ Charles R Greathouse IV, Sep 11 2022
(PARI) list(lim)=my(v=List(), a=3, b, c); forfactored(n=132, lim\1+1, c=#n[2]~; if(c==3 && a==3, listput(v, n[1]-1)); a=b; b=c); Vec(v) \\ Charles R Greathouse IV, Sep 28 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Tanya Khovanova, Sep 10 2022
STATUS
approved