OFFSET
2,2
COMMENTS
a(n) is odd if and only if n = 2^k with k>0.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 2..1000
Wikipedia, Partition of a set
MAPLE
a:= n-> 2*add(binomial(n, k), k=1..n/2)-
`if`(n::even, 3/2*binomial(n, n/2), 0):
seq(a(n), n=2..40);
# second Maple program:
a:= proc(n) option remember; `if`(n<5, [0, 1, 6, 11][n],
(9*(n-1)*(n-4)*a(n-1)+2*(3*n^2-16*n+6)*a(n-2)
-36*(n-2)*(n-4)*a(n-3)+8*(n-3)*(3*n-10)*a(n-4))
/((3*n-13)*n))
end:
seq(a(n), n=2..40);
MATHEMATICA
a[n_] := 2*Sum[Binomial[n, k], {k, 1, n/2}] - If[EvenQ[n], 3/2*Binomial[n, n/2], 0];
Table[a[n], {n, 2, 40}] (* Jean-François Alcover, May 26 2018, from Maple *)
PROG
(PARI) a(n) = 2*sum(k=1, n\2, binomial(n, k)) - if (!(n%2), 3*binomial(n, n/2)/2); \\ Michel Marcus, May 26 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Apr 28 2017
STATUS
approved