OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
EXAMPLE
71-6=65=5*13 (semiprime), 71+6=77=7*11 (semiprime).
MATHEMATICA
A115395 = {}; k = Prime[n]; Do[If[PrimeOmega[k + 6] == 2 && PrimeOmega[k - 6] == 2, AppendTo[A115395, k]], {n, 1000}]; A115395 (* K. D. Bajpai, Jun 24 2014 *)
PROG
(PARI) lista(nn) = {pr = primes(nn); pp = select(i->((bigomega(i-6) == 2) && (bigomega(i+6) == 2)), pr); print(pp); } \\ Michel Marcus, Oct 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 08 2006
STATUS
approved