|
|
A055543
|
|
Total number of nodes in all trees with n nodes.
|
|
4
|
|
|
1, 2, 3, 8, 15, 36, 77, 184, 423, 1060, 2585, 6612, 16913, 44226, 116115, 309120, 826693, 2229606, 6041145, 16461300, 45034605, 123722632, 341045702, 943197528, 2615922250, 7274629700, 20278767420, 56656404896, 158617430965, 444926154060, 1250255699930
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
nn = 25; f[x_] := Sum[a[n] x^n, {n, 0, nn}]; sol = SolveAlways[0 == Series[
f[x] - x Product[1/(1 - x^i)^a[i], {i, 1, nn}], {x, 0, nn}], x];
r[x_] := Sum[a[n] x^n, {n, 0, nn}] /. sol; CoefficientList[Series[x D[r[x] - 1/2 (r[x]^2 - r[x^2]), x], {x, 0, nn}], x] (* Geoffrey Critzer, Jul 06 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|