A386644 E.g.f. A(x) satisfies A(x) = Sum_{n>=0} (A(x)^n + x)^n * x^n / n!.

1, 1, 5, 34, 437, 7996, 191497, 5679178, 200959929, 8269303384, 388201586381, 20486491855534, 1201171090068325, 77504136748838164, 5460029344935045441, 417185040885539939506, 34377042102420367770353, 3040184386700809821194416, 287334696971272926921192469, 28915390444625255004763736278

Offset

0,3

Comments

It appears that for n > 6, a(n) (mod 6) equals [1, 4, 3, 4, 5, 4] repeating.

In general, the following sums are equal:

(C.1) Sum_{n>=0} (q^n + p)^n * r^n/n!,

(C.2) Sum_{n>=0} q^(n^2) * exp(p*q^n*r) * r^n/n!;

here, q = A(x) with p = x, r = x.

Links

Paul D. Hanna, Table of n, a(n) for n = 0..200

Formula

E.g.f. A(x) = Sum_{n>=0} a(n)*x^n/n! satisfies the following formulas.

(1) A(x) = Sum_{n>=0} (A(x)^n + x)^n * x^n / n!.

(2) A(x) = Sum_{n>=0} A(x)^(n^2) * exp(x^2*A(x)^n) * x^n / n!.

Example

E.g.f.: A(x) = 1 + x + 5*x^2/2! + 34*x^3/3! + 437*x^4/4! + 7996*x^5/5! + 191497*x^6/6! + 5679178*x^7/7! + 200959929*x^8/8! + 8269303384*x^9/9! + ...
where
A(x) = 1 + (A(x) + x)*x + (A(x)^2 + x)^2*x^2/2! + (A(x)^3 + x)^3*x^3/3! + (A(x)^4 + x)^4*x^2/4! + (A(x)^5 + x)^5*x^5/5! + ...
Also,
A(x) = exp(x^2) + A(x)*exp(x^2*A(x))*x + A(x)^4*exp(x^2*A(x)^2)*x^2/2! + A(x)^9*exp(x^2*A(x)^3)*x^3/3! + A(x)^16*exp(x^2*A(x)^4)*x^4/4! + ...

Prog

(PARI) {a(n) = my(A=[1]); for(i=1, n, A=concat(A, 0); A[#A] = polcoeff( sum(m=0, #A, (Ser(A)^m + x)^m * x^m/m! ), #A-1) ); H=A; n!*A[n+1]}
for(n=0, 20, print1(a(n), ", "))

Crossrefs

Cf. A386645, A136516.

Sequence in context: A276753 A226554 A211037 * A130607 A211042 A086345

Adjacent sequences: A386641 A386642 A386643 * A386645 A386646 A386647

Keyword

nonn

Author

Paul D. Hanna, Aug 08 2025

Status

approved