A153374 Smaller of two consecutive prime numbers such that p0+p1=average of twin prime pairs and p0*p1+7=average of twin prime pairs.

5, 13, 1039, 2753, 3343, 22381, 45979, 88223, 92317, 135221, 154153, 233323, 287149, 344221, 365293, 392723, 479629, 549739, 574363, 650581, 659423, 666079, 749803, 786949, 869059, 959723, 1023521, 1045027, 1161841, 1180423, 1193021

Offset

1,1

Comments

5+7=12+-1=primes, 5*7+7=42+-1=primes; 13+17=30+-1=primes, 13*17+7=228+-1=primes;...

Links

Table of n, a(n) for n=1..31.

Mathematica

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

Crossrefs

Cf. A099349

Sequence in context: A290171 A157250 A009157 * A247789 A012032 A121228

Adjacent sequences: A153371 A153372 A153373 * A153375 A153376 A153377

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 24 2008

Status

approved