OFFSET
1,1
COMMENTS
5*7=35; 35-4=31; 35-6=29; 29,31 twin primes
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[p1*p2-4]&&PrimeQ[p1*p2-6], (*Print[p1]; *)AppendTo[lst, p1]], {n, 8!}]; lst
ltp[{a_, b_}]:=b-a==2&&AllTrue[a*b-{4, 6}, PrimeQ]; Select[Partition[Prime[ Range[ 10000]], 2, 1], ltp][[All, 1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 07 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 02 2010
STATUS
approved