|
|
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).
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|