OFFSET
0,3
LINKS
Eric Weisstein's World of Mathematics, Bell Polynomial.
FORMULA
a(n) = Sum_{k=0..n} 4^(n-k) * |Stirling1(n,k)| * A004211(k) = 4^n * Sum_{k=0..n} (1/2)^k * |Stirling1(n,k)| * Bell_k(1/2), where Bell_n(x) is n-th Bell polynomial.
From Vaclav Kotesovec, Aug 02 2024: (Start)
a(n) = 6*(2*n - 3)*a(n-1) - (48*n^2 - 192*n + 191)*a(n-2) + 32*(n-3)*(n-2)*(2*n - 5)*a(n-3).
a(n) ~ 2^(2*n - 1/6) * n^(n - 1/3) / (sqrt(3) * exp(n - 3*2^(-4/3)*n^(1/3) + 1/2)) * (1 - 31/(72*2^(2/3)*n^(1/3)) - 4607/(20736*2^(1/3)*n^(2/3))). (End)
MATHEMATICA
Table[4^n * Sum[Abs[StirlingS1[n, k]] * BellB[k, 1/2] / 2^k, {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Aug 02 2024 *)
PROG
(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(exp((1/(1-4*x)^(1/2)-1)/2)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Aug 02 2024
STATUS
approved