%I #5 Feb 26 2022 10:53:02
%S 1,-1,1,0,-3,8,-3,-57,225,-96,-2991,13873,-255,-313506,1495089,
%T 1473024,-54621231,243365688,705129201,-14109279483,53228648865,
%U 349791931434,-5000315242479,13572033641204,204954070915977,-2294997521498172,2691551249257017
%N a(0) = 1; a(n) = -Sum_{k=0..floor((n-1)/2)} binomial(n-1,2*k) * a(k) * a(n-2*k-1).
%F E.g.f.: exp( -Sum_{n>=0} a(n) * x^(2*n+1) / (2*n+1)! ).
%t a[0] = 1; a[n_] := a[n] = -Sum[Binomial[n - 1, 2 k] a[k] a[n - 2 k - 1], {k, 0, Floor[(n - 1)/2]}]; Table[a[n], {n, 0, 26}]
%Y Cf. A101912, A138314.
%K sign
%O 0,5
%A _Ilya Gutkovskiy_, Feb 26 2022