OFFSET
1,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..591
FORMULA
E.g.f.: exp(sinh(x))*(cosh(x)-1). More generally, e.g.f. for the number of partitions of n-set with exactly k even blocks is 1/k!*exp(sinh(x))*(cosh(x)-1)^k.
MAPLE
b:= proc(n, t) option remember; `if`(n=0, t, add(
`if`(t=1 and j::even, 0, binomial(n-1, j-1)*
b(n-j, `if`(j::even, 1, t))), j=1..n))
end:
a:= n-> b(n, 0):
seq(a(n), n=1..30); # Alois P. Heinz, May 10 2016
MATHEMATICA
Drop[ Range[0, 24]! CoefficientList[ Series[ E^Sinh[x]*(Cosh[x] - 1), {x, 0, 24}], x], 1] (* Robert G. Wilson v, Aug 17 2004 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Aug 13 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 17 2004
STATUS
approved