A055353 Number of labeled mobiles (circular rooted trees) with n nodes and 6 leaves.
840, 98784, 6618528, 339111360, 14931378000, 600119150400, 22811289621120, 838683494288640, 30275663821603200, 1084273458428160000, 38808699592126464000, 1395650171787308236800, 50626461643690886553600
Offset: 7
Keywords
Links
Crossrefs
Column 6 of A055349.
Programs
-
Mathematica
m = 20; L[x_] = Log[1 - x] + O[x]^m // Normal; A[_] = 0; Do[A[x_] = x y - x L[A[x]] + O[x]^k // Normal // Expand, {k, m}]; Drop[(SeriesCoefficient[#, {y, 0, 6}] & /@ CoefficientList[A[x], x]) * Range[0, m - 1]!, 7] (* Jean-François Alcover, Nov 01 2019 *)