OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..100 from Harvey P. Dale)
EXAMPLE
41 is a term since (41, 43) are twin primes, 30*41 - 1 = 1229 and 30*41 + 1=1231 are twin primes, and 30*43 - 1 = 1289 and 30*43 + 1 = 1291 are twin primes.
MATHEMATICA
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; If[p1-p0==2&&PrimeQ[p2=p0*30-1]&&PrimeQ[p3=p0*30+1]&&PrimeQ[p4=p1*30-1]&&PrimeQ[p5=p1*30+1], AppendTo[lst, p0]], {n, 5*9!}]; lst
ltpQ[{a_, b_}]:=b-a==2&&AllTrue[{30a+1, 30a-1, 30b+1, 30b-1}, PrimeQ]; Select[ Partition[ Prime[Range[450000]], 2, 1], ltpQ][[All, 1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 27 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2010
STATUS
approved