A153414 Larger of twin prime pairs such that p1*p2+average_of_twin_prime_pair=prime.
5, 7, 31, 61, 139, 181, 241, 421, 619, 1051, 1609, 1699, 1789, 2269, 2311, 2731, 3259, 3391, 3529, 3769, 4159, 4219, 4339, 4801, 5641, 5869, 6661, 6691, 6871, 6961, 7489, 7549, 7591, 8539, 8629, 8971, 9631, 9859, 9931, 10459, 11119, 11971, 12541, 13339
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
lst={};Do[p1=Prime[n];p2=Prime[n+1];If[p2-p1==2,a=p1*p2+(p1+1);If[PrimeQ[a],AppendTo[lst,p2]]],{n,7!}];lst Transpose[Select[Select[Partition[Prime[Range[1600]],2,1],Last[#]- First[#] == 2&], PrimeQ[Times@@#+Mean[#]]&]][[2]] (* Harvey P. Dale, Jan 23 2012 *)
Comments