OFFSET
1,1
EXAMPLE
11*13+10+12+14=179,..
MATHEMATICA
lst={}; Do[p=Prime[n]; q=p+2; If[PrimeQ[q], a=p-1; b=p+1; c=q+1; If[PrimeQ[x=p*q+a+b+c]&&PrimeQ[p*q+a+b+c+2], AppendTo[lst, x]]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 28 2009
STATUS
approved