OFFSET
1,3
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
J. A. Oteo, The Baker-Campbell-Hausdorff formula and nested commutator relations, J. Math. Phys., 32 (1991), 419-421.
J. A. Oteo, The Baker-Campbell-Hausdorff formula and nested commutator identities, J. Math. Phys., 32.2 (1991), 419, 421. (Annotated scanned copy)
MATHEMATICA
g[1] = 1;
g[s_] := g[s] = Expand[(2 t - 1) g[s - 1] + t (t - 1) D[g[s - 1], t]];
cx[ss_] := Module[{m, mp, mpp, \[Gamma]},
m = Length[ss] + 1;
mp = Floor[m/2];
mpp = Floor[(m - 1)/2];
\[Gamma] = CoefficientList[Product[g[s], {s, ss}], t];
(-1)^mpp mpp! / Product[s!, {s, ss}] Sum[\[Gamma][[k]] (mp + k - 1)!/(m + k - 1)!, {k, Total[ss] - m + 2}]
];
cxs[n_] := Select[Table[{cx[ss], Length@Permutations@ss}, {ss, IntegerPartitions[n - 1]}], First@# != 0 &];
a[n_] := Total[Last /@ cxs[n]];
Table[a[n], {n, 10}]
(* Andrey Zabolotskiy, Dec 27 2018 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
David J. Thompson
EXTENSIONS
a(11)-a(30) from Andrey Zabolotskiy, Dec 27 2018
a(31)-a(36) from Sean A. Irvine, Feb 26 2021
STATUS
approved