- Let $a(n)$ be A000110 (i.e., Bell or exponential numbers: number of ways to partition a set of $n$ labeled elements).
- Let $b(n)$ be A355247 (i.e., expansion of exponential generating function $\exp(2(\exp(x) + x - 1))$). Here $$ b(n) = \sum\limits_{k=0}^{n}\binom{n}{k}a(k+1)a(n-k+1). $$
- Start with vector $\nu$ of fixed length $m$ with elements $\nu_i = z^{i-1}$ (that is, $\nu = \{1, z, z^2, \dotsc, z^{m-1}\}$) and for $i$ from $1$ to $m-1$ and for $j$ from $i+1$ to $m$ apply $$ \nu_j := \nu_j + \sum\limits_{k=0}^{j-1}z^k[z^{j-k-1}](\nu_j + (j-i)z\nu_{j-1}). $$
I conjecture that after the whole transform we have $$ [z^n]\nu_{n+1} = b(n-1). $$
Here is the PARI/GP program to check it numerically:
upto1(n) = my(v1); v1 = vector(n+1, i, sum(j=1, i, stirling(i, j, 2))); v2 = vector(n+1, i, 0); v2[1] = 1; for(i=1, n, v2[i+1] = sum(k=0, i, binomial(i, k)*v1[k+1]*v1[i-k+1])); v2
upto2(n) = my(A, v1); v1 = vector(n, i, z^(i-1)); for(i=1, n-1, for(j=i+1, n, A = v1[j] + z*(j-i)*v1[j-1]; v1[j] += sum(k=0, j-1, z^k*polcoeff(A, j-k-1, z)))); v1
upto3(n) = my(v1); v1 = upto2(n+1); v1 = vector(n, i, polcoeff(v1[i+1], i, z))
test1(n) = upto1(n) == upto3(n+1)
Is there a way to prove it?