%I #4 Jul 30 2013 13:17:03
%S 4817,9011,13841,33797,35027,48341,51581,52163,61331,62213,77747,
%T 95111,102611,105143,105683,109673,111773,114797,119759,128237,135389,
%U 136733,138683,149213,153953,159791,163211,165443,174851,188681,195977,208037
%N Middle of 3 consecutive prime numbers such that p1*p2*p3+d1+d2+1=average of twin prime pairs, d1(delta)=p2-p1,d2(delta)=p3-p2.
%C 4813*4817*4831+4+14=112002971670+-1=primes,...
%H Harvey P. Dale, <a href="/A153407/b153407.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p1=Prime[n];p2=Prime[n+1];p3=Prime[n+2];d1=p2-p1;d2=p3-p2;a=p1*p2*p3+d1+d2+1;If[PrimeQ[a-1]&&PrimeQ[a+1],AppendTo[lst,p2]],{n,8!}];lst
%t cnpQ[{a_,b_,c_}]:=Module[{p=a*b*c+(b-a)+(c-b)+1},And@@PrimeQ[p+{1,-1}]]; Transpose[Select[Partition[Prime[Range[20000]],3,1],cpnQ]][[2]] (* _Harvey P. Dale_, Jul 30 2013 *)
%Y Cf. A099349, A153374, A153375, A153376, A153377, A153378, A153379, A153402, A153404, A153405, A153406
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 25 2008