OFFSET
1,1
COMMENTS
Note that a(1) = 15 = A131109(k=6).
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Partition[Select[Range[3000], PrimeOmega[#]==2&], 2, 1], #[[2]]-#[[1]]==6&][[;; , 1]] (* Harvey P. Dale, Dec 24 2023 *)
PROG
(PARI) is(n)=if(bigomega(n)!=2 || bigomega(n+6)!=2, return(0)); for(i=1, 5, if(bigomega(n+i)==2, return(0))); 1 \\ Charles R Greathouse IV, Nov 02 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 02 2015
STATUS
approved