A153413 Smaller of twin prime pairs such that p1*p2+average_of_twin_prime_pair=prime.

3, 5, 29, 59, 137, 179, 239, 419, 617, 1049, 1607, 1697, 1787, 2267, 2309, 2729, 3257, 3389, 3527, 3767, 4157, 4217, 4337, 4799, 5639, 5867, 6659, 6689, 6869, 6959, 7487, 7547, 7589, 8537, 8627, 8969, 9629, 9857, 9929, 10457, 11117, 11969, 12539, 13337

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 25 2008

Keywords

• nonn

Comments

3*5+4=19 prime, 5*7+6=41 prime, 29*31+30=929 prime, ...

Crossrefs

Cf. A099349, A153374, A153375, A153376, A153377, A153378, A153379, A153406, A153407, A153408, A153409, A153410

Programs

Mathematica

lst={};Do[p1=Prime[n];p2=Prime[n+1];If[p2-p1==2,a=p1*p2+(p1+1);If[PrimeQ[a],AppendTo[lst,p1]]],{n,7!}];lst