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