%I #6 Feb 24 2022 08:47:09
%S 1,1,1,3,9,25,105,443,1969,10609,57265,338547,2190969,14498185,
%T 104277849,784965803,6150938593,51229928929,440694547681,
%U 3967606065891,37247506348905,361022009762809,3645855348771273,38001754007842715,409302848055407761,4558828622414199121
%N Expansion of e.g.f. exp( sinh(sqrt(2)*x) / sqrt(2) ).
%F a(0) = 1; a(n) = Sum_{k=0..floor((n-1)/2)} binomial(n-1,2*k) * 2^k * a(n-2*k-1).
%t nmax = 25; CoefficientList[Series[Exp[Sinh[Sqrt[2] x]/Sqrt[2]], {x, 0, nmax}], x] Range[0, nmax]!
%t a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, 2 k] 2^k a[n - 2 k - 1], {k, 0, Floor[(n - 1)/2]}]; Table[a[n], {n, 0, 25}]
%Y Cf. A003724, A009229, A055882, A351892.
%K nonn
%O 0,4
%A _Ilya Gutkovskiy_, Feb 24 2022
|