|
| |
|
|
A080192
|
|
Complement of A080191 relative to A000040. Prime p is a term iff there is no prime between 2*p and 2*q, where q is the next prime after p.
|
|
8
| |
|
|
59, 71, 101, 107, 149, 263, 311, 347, 461, 499, 521, 569, 673, 757, 821, 823, 857, 881, 883, 907, 967, 977, 1009, 1061, 1091, 1093, 1151, 1213, 1279, 1283, 1297, 1301, 1319, 1433, 1487, 1489, 1493, 1549, 1571, 1597, 1619, 1667, 1697, 1721, 1787, 1871, 1873
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 59 is a term since 113 is the prime preceding 2*59, 127 is the next prime and 61 is the largest of all prime factors of 114, ..., 122 = 2*61, ..., 126.
|
|
|
MATHEMATICA
| Select[Prime[Range[300]], NextPrime[2#]>2NextPrime[#]&] (* From Harvey P. Dale, Jul 07 2011 *)
|
|
|
PROG
| (PARI) {forprime(k=2, 1873, p=precprime(2*k); q=nextprime(p+1); m=0; for(j=p+1, q-1, f=factor(j); a=f[matsize(f)[1], 1]; if(m<a, m=a)); if(m!=k, print1(k, ", ")))}
|
|
|
CROSSREFS
| Cf. A000040, A080191, A052248.
Sequence in context: A061759 A061764 A162000 * A126693 A139938 A033235
Adjacent sequences: A080189 A080190 A080191 * A080193 A080194 A080195
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Feb 10 2003
|
| |
|
|
