OFFSET
0,4
FORMULA
a(n) = Sum_{k=0..n} (-1)^k * p(n,k) * 2^(n-k), where p(n,k) is the number of partitions of n into k parts.
MATHEMATICA
nmax = 34; CoefficientList[Series[Product[1/(1 + 2^(k - 1) x^k), {k, 1, nmax}], {x, 0, nmax}], x]
Table[Sum[(-1)^k Length[IntegerPartitions[n, {k}]] 2^(n - k), {k, 0, n}], {n, 0, 34}]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Jun 08 2022
STATUS
approved