|
| |
|
|
A071680
|
|
Primes which are the arithmetic mean of their prime predecessor and another prime.
|
|
2
| |
|
|
5, 37, 53, 67, 157, 173, 211, 257, 263, 277, 373, 479, 563, 593, 607, 613, 631, 653, 733, 809, 947, 977, 1009, 1103, 1123, 1187, 1223, 1297, 1367, 1471, 1511, 1607, 1663, 1721, 1747, 1753, 1783, 1867, 1901, 1907, 1931, 1993, 2137, 2287, 2377, 2411, 2417
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| A000040(12)=37, A000040(12-1)=31, 37=(31+43)/2, therefore 37 is a term.
|
|
|
MATHEMATICA
| p = q = 2; lst = {}; Do[q = Prime@n; If[PrimeQ[2q - p], AppendTo[lst, q]]; p = q, {n, 2, 400}]; lst (* Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 22 2007 *)
|
|
|
CROSSREFS
| Cf. A071681, A006562 is a subsequence.
Sequence in context: A096673 A144960 A173826 * A141182 A127589 A031913
Adjacent sequences: A071677 A071678 A071679 * A071681 A071682 A071683
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 31 200; revised Jul 16 2003
|
|
|
EXTENSIONS
| Thanks to Sven Simon for noticing errors in the original version.
|
| |
|
|
