A036371 Number of ternary rooted trees with n nodes and height at most 3.

1, 1, 1, 2, 3, 4, 4, 5, 4, 4, 3, 2, 1, 1

Offset

0,4

Links

Table of n, a(n) for n=0..13.

Index entries for sequences related to rooted trees

Formula

If T_i(z) = g.f. for ternary trees of height at most i, T_{i+1}(z)=1+z*(T_i(z)^3/6+T_i(z^2)*T_i(z)/2+T_i(z^3)/3); T_0(z) = 1.

Mathematica

T[0] = {1}; T[n_] := T[n] = Module[{f, g}, f[z_] := Sum[T[n - 1][[i]]*z^(i - 1), {i, 1, Length[T[n - 1]]}]; g = 1 + z*(f[z]^3/6 + f[z^2]*f[z]/2 + f[z^3]/3); CoefficientList[g, z]]; A036371 = T[3] (* Jean-François Alcover, Jan 19 2016, after Alois P. Heinz (A036370) *)

Crossrefs

Cf. A036370.

Sequence in context: A319712 A319715 A088807 * A036370 A005208 A110007

Adjacent sequences: A036368 A036369 A036370 * A036372 A036373 A036374

Keyword

nonn,full,fini

Author

N. J. A. Sloane, E. M. Rains (rains(AT)caltech.edu)

Status

approved