Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #2 Mar 31 2012 12:38:18
%S 3,5,29,59,137,179,239,419,617,1049,1607,1697,1787,2267,2309,2729,
%T 3257,3389,3527,3767,4157,4217,4337,4799,5639,5867,6659,6689,6869,
%U 6959,7487,7547,7589,8537,8627,8969,9629,9857,9929,10457,11117,11969,12539,13337
%N Smaller of twin prime pairs such that p1*p2+average_of_twin_prime_pair=prime.
%C 3*5+4=19 prime, 5*7+6=41 prime, 29*31+30=929 prime, ...
%t 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
%Y Cf. A099349, A153374, A153375, A153376, A153377, A153378, A153379, A153406, A153407, A153408, A153409, A153410
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 25 2008