OFFSET
0,7
COMMENTS
Number of partitions of n-set in which block sizes are odd and greater than 1. - Vladeta Jovovic, Aug 23 2007
FORMULA
a(0) = 1; a(n) = Sum_{k=1..floor((n-1)/2)} binomial(n-1,2*k) * a(n-2*k-1). - Ilya Gutkovskiy, Apr 09 2022
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, add(
binomial(n-1, 2*j)*a(n-2*j-1), j=1..(n-1)/2))
end:
seq(a(n), n=0..30); # Alois P. Heinz, Apr 09 2022
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Exp[Sinh[x]]/Exp[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 18 2015 *)
PROG
(PARI) my(x='x+O('x^30)); Vec(serlaplace(exp(sinh(x))/exp(x))) \\ Michel Marcus, Apr 09 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jan 18 2015
STATUS
approved