|
| |
|
|
A035789
|
|
Let P1,P2,..,P6 be any 6 consecutive primes. The sequence consists of those values of P3 for which P2-P1>2, P4-P3=2 and P6-P5>2.
|
|
7
| |
|
|
29, 41, 59, 71, 227, 239, 269, 281, 311, 347, 461, 521, 569, 599, 617, 641, 659, 857, 881, 1091, 1151, 1229, 1277, 1289, 1301, 1319, 1427, 1451, 1607, 1619, 1667, 1697, 1721, 1787, 1997, 2027, 2141, 2237, 2267, 2309, 2339, 2381, 2549, 2591, 2657, 2687
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Lesser of lonely twin primes.
|
|
|
REFERENCES
| Posting to Number Theory List (NMBRTHRY(AT)LISTSERV.NODAK.EDU), Nov. 19 1998.
|
|
|
LINKS
| Hugo Pfoertner, Consecutive pairs of twin primes. FORTRAN program.
|
|
|
EXAMPLE
| The first lonely twin primes (A069453) are 29,31 (23 and 37 are non-twin), 41,43 (37 and 47 are non-twin), 59,61 (53 and 67 are non-twin). Of these, the lesser twins are 29,41,59, so this is how the sequence begins.
|
|
|
MATHEMATICA
| PrimeNext[n_]:=Module[{k}, k=n+1; While[ !PrimeQ[k], k++ ]; k]; PrimePrev[n_]:=Module[{k}, k=n-1; While[ !PrimeQ[k], k-- ]; k]; lst={}; Do[p=Prime[n]; If[ !PrimeQ[p-2]&&!PrimeQ[p+4]&&PrimeQ[p+2]&&!PrimeQ[PrimePrev[p]-2]&&!PrimeQ[PrimeNext[p+2]+2], AppendTo[lst, p]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 22 2009]
|
|
|
CROSSREFS
| Cf. A035790, A035791, A035792, A035793, A035794, A035795, A087641.
Cf. A069453, A069455.
Sequence in context: A068480 A161616 A069454 * A080899 A157141 A107218
Adjacent sequences: A035786 A035787 A035788 * A035790 A035791 A035792
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Randall Rathbun, Nov 30 1998
|
|
|
EXTENSIONS
| Edited by Hugo Pfoertner (hugo(AT)pfoertner.org), Oct 15 2003
|
| |
|
|
