OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
a(n) >> n log n. - Charles R Greathouse IV, Nov 02 2015
EXAMPLE
MATHEMATICA
Flatten[Position[Partition[Table[If[PrimeOmega[n]==2, 1, 0], {n, 1000}], 4, 1], _?(#=={1, 0, 0, 1}&)]] (* Harvey P. Dale, Feb 08 2016 *)
PROG
(PARI) for(n=1, 1e3, if(bigomega(n) == 2 && bigomega(n+3) == 2 && bigomega(n+1) !=2 && bigomega(n+2) !=2, print1(n", "))) \\ Altug Alkan, Nov 02 2015
(PARI) is(n)=if(n%4==2, isprime(n/2) && bigomega(n+3)==2 && bigomega(n+1)!=2, n%4==3 && isprime((n+3)/2) && bigomega(n)==2 && bigomega(n+2)!=2) \\ Charles R Greathouse IV, Nov 02 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 02 2015
STATUS
approved