OFFSET
1,1
COMMENTS
A321503 lists numbers m such that m and m+1 both have at least 3 distinct prime factors, while A140077 lists numbers such that m and m+1 have exactly 3 distinct prime factors. This sequence is the complement of the latter in the former, it consists of terms with indices (15, 60, 82, 98, 99, 104, ...) of the former.
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..5000
MATHEMATICA
aQ[n_]:=Module[{v={PrimeNu[n], PrimeNu[n+1]}}, Min[v]>2 && v!={3, 3}]; Select[Range[120000], aQ] (* Amiram Eldar, Nov 12 2018 *)
PROG
(PARI) select( is(n)=omega(n)>2&&omega(n+1)>2&&(omega(n)>3||omega(n+1)>3), [1..1300])
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 13 2018
STATUS
approved