%I #6 Mar 16 2022 16:33:18
%S 1,1,2,7,32,182,1244,9919,90384,926552,10553728,132231446,1807390960,
%T 26762801828,426771821000,7291604699407,132885997278944,
%U 2573145015936096,52756125043795232,1141727892772848248,26009303834699461248,622134297287753003008,15589886235793001142016
%N a(0) = 1; a(n) = Sum_{k=0..floor((n-1)/2)} binomial(n,2*k+1) * a(k) * a(n-2*k-1).
%F E.g.f.: 1 / (1 - Sum_{n>=0} a(n) * x^(2*n+1) / (2*n+1)!).
%t a[0] = 1; a[n_] := a[n] = Sum[Binomial[n, 2 k + 1] a[k] a[n - 2 k - 1], {k, 0, Floor[(n - 1)/2]}]; Table[a[n], {n, 0, 22}]
%Y Cf. A138314, A352436, A352437.
%K nonn
%O 0,3
%A _Ilya Gutkovskiy_, Mar 16 2022