|
Search: id:A137670
|
|
|
| A137670 |
|
Prime numbers p such that p +- a, p +- b and p +- c are prime numbers, where a, b and c are distinct positive integers, with p > c, c > b and b > a. |
|
+0
1
|
|
| 17, 23, 29, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
s=""; q=1; For[i=2, i<10^2, p=Prime[i]; For[a=2, a<p, If[PrimeQ[p-a]&&PrimeQ[p+a], For[b=a+2, b<p, If[PrimeQ[p-b]&&PrimeQ[p+b], For[c=b+2, c<p, If[p>q&&PrimeQ[p-c]&&PrimeQ[p+c], (*Print[p, ":", a, ", ", b, ", ", c]; *)s=s<>ToString[p]<>", "; q=p]; c=c+2]]; b=b+2]]; a=a+2]; i++ ]; Print[s]
|
|
CROSSREFS
|
Sequence in context: A064543 A050712 A068581 this_sequence A145484 A080830 A072184
Adjacent sequences: A137667 A137668 A137669 this_sequence A137671 A137672 A137673
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 27 2008; corrected May 02 2008
|
|
|
Search completed in 0.002 seconds
|
