OFFSET
1,1
COMMENTS
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..10000
MATHEMATICA
aQ[n_]:=Module[{v={PrimeNu[n], PrimeNu[n+1]}}, Min[v]>2]; Select[Range[1300], aQ] (* Amiram Eldar, Nov 12 2018 *)
PROG
(PARI) select( is(n)=omega(n)>2&&omega(n+1)>2, [1..1300])
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 13 2018
STATUS
approved