A290183 a(n) is least p to label a node of height n in the rooted tree which has the primes (A000040) as labels for its nonroot nodes, and the parent of the node labeled p is the node labeled with the greatest prime less than p/2 (or the root if there is no such node).
59, 331, 163, 79, 37, 17, 724777, 941593, 3578683, 73397147, 52457707, 26228849, 2600553509, 1300276753
Offset: 0
Examples
The only prime between 2 * 331 = 662 and 2 * nextprime(331) = 2 * 337 = 674 is 673, so the node labeled 331 is parent only to the node labeled 673. There are no primes between 2 * 673 = 1346 and 2 * nextprime(673) = 2 * 677 = 1354, so the node labeled 673 is a leaf. Thus the node labeled 331 has height 1. It is the least such prime, so a(1) = 331. The "tree of primes" defined above starts: Root +----------------------------+ 2 3 | | 5 7 +--------------+ +-------+ 11 13 17 19 | +-----------+ | +----+ 23 29 31 37 41 43 +----+ +----+ +----+----+ | | | 47 53 59 61 67 71 73 79 83 89 The subtree consisting of the node labeled 17 and all 5 of its descendants is: 17 | 37 | 79 | 163 | 331 | 673 From _Peter Munn_, Nov 22 2018: (Start) The subtree consisting of the node labeled with a(7) = 941593 and its descendants is: 941593 +------+--------+ 1883191 1883197 | | 3766387 3766397 | 7532813 +-----------------+-----------------+ 15065627 15065639 15065641 | +-----------+ | 30131267 30131279 30131281 30131291 | 60262597 | 120525217 (End)
Links
- Michel Marcus and Peter Munn, PARI script
Crossrefs
Programs
-
PARI
lista(nbp) = {my(v = primes(nbp), nv, x); for (n=0, oo, nv = Set(apply(x->precprime(x >> 1), v)); x = vecmin(setminus(v, nv)); if (x > vecmax(nv), break); print1(x, ", "); v = nv;);} /* use nbp=6*10^6 for 7 terms and nbp=2*10^7 for 8 terms */ \\ Michel Marcus, Nov 19 2018
-
PARI
ntimes(p, n) = for (k=1, n, p = precprime(p>>1)); p; a(n) = {p = 2; x = ntimes(p, n); p = nextprime(p+1); q = 5; y = ntimes(q, n+1); q = nextprime(q+1); for (k= 1, oo, if (y != x, return (x)); until((ny = ntimes(q, n+1)) != x, q = nextprime(q+1)); until((nx = ntimes(p, n)) != x, p = nextprime(p+1)); x = nx; y = ny;);} \\ Michel Marcus, Dec 08 2018
Formula
a(n) = min (A055377^(n+1) \ A055377^(n+2)), where A055377^(i) denotes the image set of N after i applications of A055377. - clarified following suggestion by Michel Marcus, Nov 13 2018
Extensions
Candidate for a(8) confirmed by Michel Marcus, Nov 14 2018
a(9)-a(13) from Michel Marcus, Jan 02 2019
Comments