A153374 Smaller of two consecutive prime numbers p0, p1 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

Robert Israel, Table of n, a(n) for n = 1..1000

Maple

R:= NULL: count:= 0:
q:= 2:
while count < 50 do
  p:= q; q:= nextprime(p);
  if isprime(p+q-1) and isprime(p+q+1) and isprime(p*q+6) and isprime(p*q+8) then
    R:= R, p; count:= count+1;
  fi
od:
R; # Robert Israel, Apr 21 2026

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: A157250 A009157 A396335 * A247789 A012032 A121228

Adjacent sequences: A153371 A153372 A153373 * A153375 A153376 A153377

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 24 2008

Status

approved