login
E.g.f. satisfies A(x) = 1/(2 - exp(x*A(x)^2)).
9

%I #15 Nov 07 2023 11:00:05

%S 1,1,7,97,2051,58681,2122695,92960001,4782826459,282821367001,

%T 18901822316543,1409070858589153,115925274671836371,

%U 10433564954705754681,1019782291631652745591,107570331041074850633473,12180277895590328004331019,1473587743517654702900335705

%N E.g.f. satisfies A(x) = 1/(2 - exp(x*A(x)^2)).

%F a(n) = (1/(2*n+1)!) * Sum_{k=0..n} (2*n+k)! * Stirling2(n,k).

%F a(n) ~ 2^(n-1) * LambertW(exp(1/2))^(2*n + 1) * n^(n-1) / (sqrt(1 + LambertW(exp(1/2))) * exp(n) * (2*LambertW(exp(1/2)) - 1)^(3*n + 1)). - _Vaclav Kotesovec_, Nov 07 2023

%t Table[1/(2*n+1)! * Sum[(2*n+k)! * StirlingS2[n,k], {k,0,n}], {n,0,20}] (* _Vaclav Kotesovec_, Nov 07 2023 *)

%o (PARI) a(n) = sum(k=0, n, (2*n+k)!*stirling(n, k, 2))/(2*n+1)!;

%Y Cf. A000670, A052894, A367135.

%Y Cf. A367136, A367138.

%K nonn

%O 0,3

%A _Seiichi Manyama_, Nov 06 2023