STATUS
proposed
approved
proposed
approved
editing
proposed
a(n+1) = n! * Sum_{k=0..n} (1/2)^(n-k) * (n+1)^(k-1) * binomial(k,n-k)/k!. - Seiichi Manyama, Aug 19 2023
approved
editing
proposed
approved
editing
proposed
CoefficientList[1/x InverseSeries[x/Exp[x+x^2/2]+O[x]^20], x] Range[0, 18]! (* Jean-François Alcover, Aug 06 2018 *)
approved
editing
editing
approved
As Alois P. Heinz has pointed out, the e.g.f in the Example section does not match the offset. The However, the identity a(n) = A091481(n)/n holds with the present offset of 1. - N. J. A. Sloane, Jun 23 2017
approved
editing
editing
approved