A168536 The lesser of twin primes p such that p*q+a+b+c are also the lesser of twin primes, (p and q are twin primes, p+2=q, a=p-1,b=(p+q)/2,c=q+1).

11, 101, 179, 347, 569, 1049, 1229, 1301, 1487, 1667, 3557, 4127, 6089, 6761, 8627, 9041, 10067, 11939, 12251, 14321, 19421, 25847, 28571, 29207, 30011, 30869, 31541, 33329, 33587, 36791, 38459, 39509, 39839, 40427, 43049, 49529, 50591, 50969

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

lst={}; Do[p=Prime[n]; q=p+2; If[PrimeQ[q], a=p-1; b=p+1; c=q+1; If[PrimeQ[p*q+a+b+c]&&PrimeQ[p*q+a+b+c+2], AppendTo[lst, p]]], {n, 8!}]; lst
Select[Partition[Prime[Range[5300]], 2, 1], #[[2]]-#[[1]]==2&&AllTrue[#[[1]]^2+5#[[1]]+{3, 5}, PrimeQ]&][[;; , 1]] (* Harvey P. Dale, Sep 23 2023 *)

Crossrefs

Cf. A001359, A126334, A128550, A128551

Sequence in context: A156753 A118592 A156617 * A089716 A084987 A083185

Adjacent sequences: A168533 A168534 A168535 * A168537 A168538 A168539

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Nov 28 2009

Status

approved