A172387 G.f. satisfies: A(x) = x + x*Sum_{n>=1} G_{n}(x)^n, where G_{n}(x) is the n-th iteration of A(x) defined by G{n}(x) = G_{n-1}(A(x)) with G_0(x)=x.

1, 1, 2, 7, 33, 187, 1208, 8626, 66782, 553355, 4862938, 45025668, 437029462, 4429568600, 46738108168, 512097036882, 5814415004953, 68293044651990, 828547526906649, 10369747261970151, 133732024450930096

Offset

0,3

Links

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

Example

G.f.: A(x) = x + x^2 + 2*x^3 + 7*x^4 + 33*x^5 + 187*x^6 +...
Related expansions:
A(A(x)) = x + 2*x^2 + 6*x^3 + 25*x^4 + 130*x^5 + 789*x^6 +...
A(A(x))^2 = x^2 + 4*x^3 + 16*x^4 + 74*x^5 + 396*x^6 +...
A(A(A(x))) = x + 3*x^2 + 12*x^3 + 60*x^4 + 353*x^5 + 2348*x^6 +...
A(A(A(x)))^3 = x^3 + 9*x^4 + 63*x^5 + 423*x^6 + 2895*x^7 +...
Coefficients in the n-th iteration of the g.f. begin:
n=1: [1, 1, 2, 7, 33, 187, 1208, 8626, 66782, 553355, ...];
n=2: [1, 2, 6, 25, 130, 789, 5376, 40140, 323198, 2775204, ...];
n=3: [1, 3, 12, 60, 353, 2348, 17208, 136574, 1159754, ...];
n=4: [1, 4, 20, 118, 788, 5800, 46236, 394382, 3568108, ...];
n=5: [1, 5, 30, 205, 1545, 12595, 109664, 1010914, 9803334, ...];
n=6: [1, 6, 42, 327, 2758, 24817, 235932, 2354038, 24532158, ...];
n=7: [1, 7, 56, 490, 4585, 45304, 469000, 5059950, 56677550, ...];
n=8: [1, 8, 72, 700, 7208, 77768, 873352, 10164212, 122210376, ...];
n=9: [1, 9, 90, 963, 10833, 126915, 1539720, 19271058, 248179134, ...];
n=10:[1, 10, 110, 1285, 15690, 198565, 2591528, 34766008, 478309118, ...]; ...
Coefficients in the n-th power of the n-th iteration of the g.f. begin:
n=1: [1, 1, 2, 7, 33, 187, 1208, 8626, 66782, 553355, ...];
n=2: [0, 1, 4, 16, 74, 396, 2398, 16093, 117752, 927818, ...];
n=3: [0, 0, 1, 9, 63, 423, 2895, 20634, 154323, 1213566, ...];
n=4: [0, 0, 0, 1, 16, 176, 1688, 15312, 136320, 1214472, ...];
n=5: [0, 0, 0, 0, 1, 25, 400, 5275, 62850, 707350, 7710070, ...];
n=6: [0, 0, 0, 0, 0, 1, 36, 792, 13842, 212028, 2989698, ...];
n=7: [0, 0, 0, 0, 0, 0, 1, 49, 1421, 31899, 614166, 10685675, ...];
n=8: [0, 0, 0, 0, 0, 0, 0, 1, 64, 2368, 66528, 1577280, ...];
n=9: [0, 0, 0, 0, 0, 0, 0, 0, 1, 81, 3726, 128223, 3676887, ...];
n=10:[0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 100, 5600, 231850, 7917900, ...]; ...
Column sums in the above table form this sequence shift left 1 place.

Prog

(PARI) {a(n)=local(a_n=0, G=x, F=x+sum(k=2, n-1, a(k)*x^k)); if(n<1, 0, if(n==1, 1, for(k=1, n-1, G=x; for(i=1, k, G=subst(F, x, G+x*O(x^n))); a_n=a_n+polcoeff(G^k, n-1)); a_n))}

Crossrefs

Cf. A171780 (variant).

Sequence in context: A224769 A302285 A249636 * A186760 A162661 A299043

Adjacent sequences: A172384 A172385 A172386 * A172388 A172389 A172390

Keyword

nonn

Author

Paul D. Hanna, Feb 03 2010

Status

approved