A355106 - OEIS

%I #10 Jun 19 2022 08:41:02

%S 1,2,8,60,704,11640,254736,7071512,241414400,9898632864,478455967200,

%T 26853032524912,1728192188667072,126200480666269984,

%U 10363161616018802080,949530356895864383280,96418968027002031636480,10785892383962319840160640

%N E.g.f. A(x) satisfies: A(x) = 1 + 2 * x * A(-log(1-x)).

%F a(0) = 1; a(n) = 2 * n * Sum_{k=0..n-1} |Stirling1(n-1,k)| * a(k).

%F a(n) = 2 * n * A355098(n-1) for n>0.

%o (PARI) a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=2*i*sum(j=0, i-1, abs(stirling(i-1, j, 1))*v[j+1])); v;

%Y Cf. A354730, A355107.

%Y Cf. A355098.

%K nonn

%O 0,2

%A _Seiichi Manyama_, Jun 19 2022