OFFSET
1,1
COMMENTS
5*7=35+-6 -> primes,..
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[p1*p2+6]&&PrimeQ[p1*p2-6], (*Print[p1]; *)AppendTo[lst, p1]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 02 2010
STATUS
approved