login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A332074 Number of trees of height n obtained from those of height n-1 by attaching new nodes to the leaf n as to achieve a total degree of n, using all of its remaining free "bonds" in any possible way. 0
1, 1, 1, 2, 6, 44, 524, 12744, 654472 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,4
COMMENTS
The nodes can be connected by one or more bonds (= edges). Each new leaf gets labeled with the least positive integer not already used in the tree, and this number is also the total number of "bonds" (maximum degree) of the node.
LINKS
Ali Sada, M. F. Hasler, Help with a tree sequence, posts to the SeqFan list, May 2020.
EXAMPLE
There is only one tree of height 0, consisting of the leaf 1 which has 1 free bond, so a(0) = 1.
Then there's only one possible tree of height 1, obtained by attaching the new leaf 2 to leaf 1, using its only free bond. So a(1) = 1.
One bond being used to attach it to its parent (1), the leaf 2 has only one free bond left. Therefore there's only one possible tree of height 2, obtained by attaching the new leaf 3 to leaf 2, using its only free bond. So a(2) = 1.
Then we can use the two remaining free bonds of 3 in two ways: Either to attach one new leaf (4) with both of the remaining free bonds of 3, or attach two new leaves (4 and 5) with one bond each to their parent 3:
1-2-3=4: or 1-2-3-4:. so a(3) = 2.
\ (Dots indicate the number
5:: of remaining free bonds.)
And so on.
PROG
(PARI) upto(N)={ my(a=[1, 1], L=[[1]], extend(T, M)=my(L=List(), m=T[1]); M+=#T; T=T[^1]; for(N=1, m, forvec(v=vector(N+1, i, [i>N, i>1]*m), listput(L, concat(T, vector(N, i, M+i-v[i+1]+v[i] ))), 2)); Vec(L)); for(n=1, N-1, L=concat([extend(T, n) | T<-L]); a=concat(a, #L)); a} \\ see link to the SeqFan post for a commented version
CROSSREFS
Sequence in context: A038180 A058925 A266855 * A171690 A259763 A219337
KEYWORD
nonn,more
AUTHOR
Ali Sada and M. F. Hasler, May 22 2020
EXTENSIONS
a(8) from Jinyuan Wang, May 26 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 2 21:21 EDT 2024. Contains 372203 sequences. (Running on oeis4.)