login
A153413
Smaller of twin prime pairs such that p1*p2+average_of_twin_prime_pair=prime.
1
3, 5, 29, 59, 137, 179, 239, 419, 617, 1049, 1607, 1697, 1787, 2267, 2309, 2729, 3257, 3389, 3527, 3767, 4157, 4217, 4337, 4799, 5639, 5867, 6659, 6689, 6869, 6959, 7487, 7547, 7589, 8537, 8627, 8969, 9629, 9857, 9929, 10457, 11117, 11969, 12539, 13337
OFFSET
1,1
COMMENTS
3*5+4=19 prime, 5*7+6=41 prime, 29*31+30=929 prime, ...
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=Prime[n+1]; If[p2-p1==2, a=p1*p2+(p1+1); If[PrimeQ[a], AppendTo[lst, p1]]], {n, 7!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved