OFFSET
1,4
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
T[n_, k_]:=(-1)^(k-1)*Sum[(-1)^j*(PartitionsP[n-j*(3*j+1)/2]-PartitionsP[n-j*(3*j+5)/2-1]), {j, 0, k-1}]; (* A325433 *)
Table[Sum[T[n, k], {k, 1, n}], {n, 1, 50}]
PROG
(PARI)
T(n, k) = (-1)^(k-1)*sum(j=0, k-1, (-1)^j*(numbpart(n-j*(3*j+1)/2)-numbpart(n-j*(3*j+5)/2-1))); \\ A325433
a(n) = sum(k=1, n, T(n, k));
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Apr 27 2019
STATUS
approved