OFFSET
1,1
COMMENTS
Terms of A321489 (k and k+1 have at least 7 distinct prime factors) which don't satisfy the definition with "exactly 7".
MATHEMATICA
aQ[n_]:=Module[{v={PrimeNu[n], PrimeNu[n+1]}}, Min[v]>6 && v!={7, 7}]; Select[Range[10^10], aQ]
PROG
(PARI) is(n)=omega(n)>6&&omega(n+1)>6&&(omega(n)>7||omega(n+1)>7)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar and M. F. Hasler, Nov 13 2018
STATUS
approved