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!)
A036658 Number of n-node rooted unlabeled trees with exactly 3 edges at root and otherwise out-degree <= 2. 3

%I #20 Mar 04 2020 22:55:46

%S 0,0,0,0,1,1,3,6,14,29,68,147,337,757,1734,3953,9113,20988,48645,

%T 112909,263084,614201,1438001,3373253,7930660,18679005,44075988,

%U 104173194,246604137,584620470,1387879434,3299067379,7851736348,18708682855,44627133541

%N Number of n-node rooted unlabeled trees with exactly 3 edges at root and otherwise out-degree <= 2.

%H <a href="/index/Ro#rooted">Index entries for sequences related to rooted trees</a>

%F Let G036656(x) = g.f. for A036656. G.f.: x^3*cycle_index(S3, G036656), where cycle_index(Sk, f) means apply the cycle index for the symmetric group S_k to f(x).

%F E.g., cycle_index(S2, f) = (1/2!)*(f^2+subs(x=x^2, f), cycle_index(S3, f) = (1/3!)*(f^3+3*subs(x=x^2, f)*f+2*subs(x=x^3, f)).

%p CI2 := proc(f) (1/2)*(f^2+subs(x=x^2,f)); end; CI3 := proc(f) (1/6)*(f^3+3*subs(x=x^2,f)*f+2*subs(x=x^3,f)); end;

%p N := 40: G036658 := series(x^3*CI3(G036656),x,N); A036658 := n->coeff(G036658,x,n);

%t terms = 35;

%t CI3[f_] := (1/3!)*(f^3 + 3*(f /. x -> x^2)*f + 2*(f /. x -> x^3));

%t G036656[_] = 0; Do[G036656[x_] = x + (1/2)*(G036656[x]^2 + G036656[x^2]) + O[x]^terms // Normal, terms];

%t G036658[x_] = x^3*CI3[G036656[x] - x] + O[x]^(terms+5);

%t Drop[CoefficientList[G036658[x], x], 5] (* _Jean-François Alcover_, Jan 24 2018, adapted from Maple *)

%K nonn,nice,easy

%O 0,7

%A _N. J. A. Sloane_

%E Corrected by _N. J. A. Sloane_, May 03 2000

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 March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)