login
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.
16
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;...
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
Sequence in context: A290171 A157250 A009157 * A247789 A012032 A121228
KEYWORD
nonn
AUTHOR
STATUS
approved