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