%I #14 Mar 14 2022 07:23:51
%S 144,11508,545664,20469456,678857760,21047130720,629779328640,
%T 18547337128320,544474197146880,16067754570067200,479436489384652800,
%U 14522782898521497600,447847214484186316800,14087092606079728435200
%N Number of labeled mobiles (circular rooted trees) with n nodes and 5 leaves.
%H Georg Fischer, <a href="/A055352/b055352.txt">Table of n, a(n) for n = 6..250</a>
%H <a href="/index/Mo#mobiles">Index entries for sequences related to mobiles</a>
%t m = 20; L[x_] = Log[1 - x] + O[x]^m // Normal; A[_] = 0;
%t Do[A[x_] = x y - x L[A[x]] + O[x]^k // Normal // Expand, {k, m}];
%t Drop[(SeriesCoefficient[#, {y, 0, 5}] & /@ CoefficientList[A[x], x]) * Range[0, m - 1]!, 6] (* _Jean-François Alcover_, Nov 01 2019 *)
%Y Column 5 of A055349.
%K nonn
%O 6,1
%A _Christian G. Bower_, May 15 2000
|