|
| |
|
|
A144104
|
|
Primes p such that log(nextPrime(p))/log(p) is smaller for larger primes.
|
|
2
| |
|
|
2, 3, 7, 13, 23, 31, 47, 53, 113, 139, 199, 211, 293, 317, 523, 1327, 1669, 1951, 2179, 2477, 2971, 3271, 4297, 4831, 5591, 5749, 5953, 6491, 6917, 7253, 8467, 9551, 9973, 10799, 11743, 12163, 12853, 15683, 16141, 19609, 31397, 34061, 35617, 35677
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Log(nextPrime(p))/log(p) is another measure of the gap between consecutive primes. See A144105 for the primes at the upper end of the gaps.
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..176
|
|
|
MATHEMATICA
| nn=10^5; ps=N[Log[Prime[Range[nn]]]]; ps=Rest[ps]/Most[ps]; k=1; t={}; While[k<nn/2, mx=Max[Take[ps, {k, Length[ps]}]]; pos=Position[Take[ps, {k, Length[ps]}], mx][[ -1, 1]]; AppendTo[t, Prime[pos+k-1]]; k=k+pos]; t
|
|
|
CROSSREFS
| Sequence in context: A048216 A003509 A133370 * A088175 A091440 A175211
Adjacent sequences: A144101 A144102 A144103 * A144105 A144106 A144107
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| T. D. Noe (noe(AT)sspectra.com), Sep 11 2008
|
| |
|
|
