OFFSET
1,1
COMMENTS
A117328 is the subsequence of primes.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[600], PrimeOmega[# + 4] == PrimeOmega[# - 4] == 2 &] (* Vincenzo Librandi, Mar 29 2015 *)
Flatten[Position[Partition[Table[If[PrimeOmega[n]==2, 1, 0], {n, 600}], 9, 1], _?(#[[1]]==#[[9]]==1&), {1}, Heads->False]]+4 (* Harvey P. Dale, Mar 29 2015 *)
PROG
(PARI) lista(nn, m=4) = {for (n=m+1, nn, if (bigomega(n-m)==2 && bigomega(n+m)==2, print1(n, ", ")); ); }
(Magma) IsSemiprime:=func< n | &+[k[2]: k in Factorization(n)] eq 2 >; [ n: n in [6..750] | IsSemiprime(n+4) and IsSemiprime(n-4) ]; // Vincenzo Librandi, Mar 29 2015
KEYWORD
nonn
AUTHOR
Michel Marcus, Mar 27 2015
STATUS
approved