|
|
A174913
|
|
Lesser of twin primes p1 such that 2*p1+p2 is a prime number.
|
|
10
|
|
|
3, 5, 17, 29, 59, 149, 197, 227, 239, 269, 419, 569, 659, 1277, 1427, 1487, 1667, 1949, 2087, 2129, 2267, 2339, 2549, 2789, 2999, 3359, 3389, 3929, 4049, 4157, 4217, 4229, 4517, 4637, 5099, 5417, 5477, 6089, 6197, 6299, 6359, 6569, 6659, 6827, 6959, 7127
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
(p1, p2=p1+2) is a pair of twin primes.
|
|
LINKS
|
|
|
MATHEMATICA
|
lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[2*p1+p2], AppendTo[lst, p1]], {n, 7!}]; lst
Transpose[Select[Partition[Prime[Range[1000]], 2, 1], #[[2]]-#[[1]] == 2 && PrimeQ[2#[[1]]+#[[2]]]&]][[1]] (* Harvey P. Dale, Apr 09 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|