%I #9 May 10 2016 17:01:30
%S 0,1,3,7,25,91,329,1415,6297,29431,151085,802099,4506957,26836083,
%T 165586321,1074740079,7268876881,50985776815,372854157589,
%U 2820244541675,22087612114805,179014336044171,1495539626297689,12894921568568999,114481871464864825
%N Number of partitions of an n-set with exactly one even block.
%H Alois P. Heinz, <a href="/A096579/b096579.txt">Table of n, a(n) for n = 1..591</a>
%F 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.
%p b:= proc(n, t) option remember; `if`(n=0, t, add(
%p `if`(t=1 and j::even, 0, binomial(n-1, j-1)*
%p b(n-j, `if`(j::even, 1, t))), j=1..n))
%p end:
%p a:= n-> b(n, 0):
%p seq(a(n), n=1..30); # _Alois P. Heinz_, May 10 2016
%t Drop[ Range[0, 24]! CoefficientList[ Series[ E^Sinh[x]*(Cosh[x] - 1), {x, 0, 24}], x], 1] (* _Robert G. Wilson v_, Aug 17 2004 *)
%Y Cf. A003724.
%K easy,nonn
%O 1,3
%A _Vladeta Jovovic_, Aug 13 2004
%E More terms from _Robert G. Wilson v_, Aug 17 2004
|