OFFSET
1,1
COMMENTS
MATHEMATICA
aQ[n_]:=Module[{v={PrimeNu[n], PrimeNu[n+1]}}, Min[v]>5 && v!={6, 6}]; Select[Range[10^9], aQ] (* Amiram Eldar, Nov 12 2018 *)
PROG
(PARI) is(n)=omega(n)>5&&omega(n+1)>5&&(omega(n)>6||omega(n+1)>6)
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 12 2018
EXTENSIONS
More terms from Amiram Eldar, Nov 12 2018
STATUS
approved