This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A355381 #22 Jul 11 2022 11:28:08
%S A355381 1,1,6,35,247,2102,20547,224541,2707292,35638329,507464939,7757439428,
%T A355381 126538995293,2191454313661,40120212534838,773554002955047,
%U A355381 15656660861190371,331700076893737054,7337160433117899959,169068422994937678185,4050093664805130165348
%N A355381 Expansion of e.g.f. exp(exp(3*x) - exp(2*x)).
%C A355381 In general, if m > 0, b > d >= 1 and e.g.f. = exp(m*exp(b*x) + r*exp(d*x) + s) then a(n) ~ exp(m*exp(b*z) + r*exp(d*z) + s - n) * (n/z)^(n + 1/2) / sqrt(m*b*(1 + b*z)*exp(b*z) + r*d*(1 + d*z)*exp(d*z)), where z = LambertW(n/m)/b - 1/(d + b/LambertW(n/m) + b^2 * m^(d/b) * n^(1 - d/b) * (1 + LambertW(n/m)) / (d*r*LambertW(n/m)^(2 - d/b))). - _Vaclav Kotesovec_, Jul 03 2022
%C A355381 In addition, if b/d >=2 then a(n) ~ c * (b*n/LambertW(n/m))^n * exp(n/LambertW(n/m) + r * (n/(m*LambertW(n/m)))^(d/b) - n + s) / sqrt(1 + LambertW(n/m)), where c = 1 for b/d > 2 and c = exp(-r^2/(8*m)) for b/d = 2. - _Vaclav Kotesovec_, Jul 10 2022
%H A355381 Seiichi Manyama, <a href="/A355381/b355381.txt">Table of n, a(n) for n = 0..471</a>
%F A355381 a(n) = Sum_{k=0..n} binomial(n,k) * 3^k * 2^(n-k) * Bell(k) * Bell(n-k, -1).
%F A355381 a(0) = 1; a(n) = Sum_{k=1..n} (3^k - 2^k) * binomial(n-1,k-1) * a(n-k). - _Seiichi Manyama_, Jun 30 2022
%F A355381 a(n) ~ exp(exp(3*z) - exp(2*z) - n) * (n/z)^(n + 1/2) / sqrt(3*(1 + 3*z)*exp(3*z) - 2*(1 + 2*z)*exp(2*z)), where z = LambertW(n)/3 - 1/(2 + 3/LambertW(n) - 9 * n^(1/3) * (1 + LambertW(n)) / (2*LambertW(n)^(4/3))). - _Vaclav Kotesovec_, Jul 03 2022
%t A355381 nmax = 20; CoefficientList[Series[Exp[Exp[3*x] - Exp[2*x]], {x, 0, nmax}], x] * Range[0, nmax]!
%t A355381 Table[Sum[Binomial[n,k] * 3^k * 2^(n-k) * BellB[k] * BellB[n-k, -1], {k, 0, n}], {n, 0, 20}]
%o A355381 (PARI) my(x='x+O('x^25)); Vec(serlaplace(exp(exp(3*x) - exp(2*x)))) \\ _Michel Marcus_, Jun 30 2022
%Y A355381 Cf. A143405, A194006, A355291, A355380, A355378.
%K A355381 nonn
%O A355381 0,3
%A A355381 _Vaclav Kotesovec_, Jun 30 2022