OFFSET
1,5
COMMENTS
Grows asymptotically in O(n^4).
LINKS
T. M. Coronado, A. Mir, F. Rosselló, and G. Valiente, A balance index for phylogenetic trees based on quartets, arXiv preprint arXiv:1803.01651 [q-bio.PE], 2018.
Tomás M. Coronado, Balance indices for phylogenetic trees under well-known probability models, Linköping University (Sweden, 2020).
FORMULA
a(n) = a(floor(n/2)) + a(ceiling(n/2)) + binomial(floor(n/2),2) * binomial(ceiling(n/2),2) for n>3; with a(1)=a(2)=a(3)=0.
MATHEMATICA
a[n_] := a[Floor[n/2]] + a[Ceiling[n/2]] + Binomial[Floor[n/2], 2]*Binomial[Ceiling[n/2], 2]; a[1] = 0; Array[a, 50] (* Robert G. Wilson v, Mar 06 2018 *)
PROG
(R) q=c(0, 0, 0, 1)
for (i in (4:20)){q[i]=q[floor(i/2)] + q[ceiling(i/2)] + choose(floor(i/2), 2) * choose(ceiling(i/2), 2)}
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Francesc Rosselló, Mar 06 2018
STATUS
approved