|
Search: id:A144104
|
|
|
| A144104 |
|
Primes p such that log(nextPrime(p))/log(p) is smaller for larger primes. |
|
+0
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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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 this_sequence A088175 A091440 A075058
Adjacent sequences: A144101 A144102 A144103 this_sequence A144105 A144106 A144107
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Sep 11 2008
|
|
|
Search completed in 0.002 seconds
|
