|
%I #2 Mar 31 2012 12:38:18
%S 5,13,1039,2753,3343,22381,45979,88223,92317,135221,154153,233323,
%T 287149,344221,365293,392723,479629,549739,574363,650581,659423,
%U 666079,749803,786949,869059,959723,1023521,1045027,1161841,1180423,1193021
%N Smaller of two consecutive prime numbers such that p0+p1=average of twin prime pairs and p0*p1+7=average of twin prime pairs.
%C 5+7=12+-1=primes, 5*7+7=42+-1=primes; 13+17=30+-1=primes, 13*17+7=228+-1=primes;...
%t lst={};Do[p0=Prime[n];p1=Prime[n+1];a=p0+p1;b=p0*p1+7;If[PrimeQ[a-1]&&PrimeQ[a+1]&&PrimeQ[b-1]&&PrimeQ[b+1],AppendTo[lst,p0]],{n,9!}];lst
%Y Cf. A099349
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 24 2008
|
