OFFSET
0,3
EXAMPLE
Antidiagonal i + j = 3 of A175804 is (3, 1, 0, -1), so a(3) = 5.
MATHEMATICA
nn=30;
q=Table[PartitionsP[n], {n, 0, nn}];
t=Table[Sum[(-1)^(j-k)*Binomial[j, k]*q[[i+k]], {k, 0, j}], {j, 0, Length[q]/2}, {i, Length[q]/2}]
Total/@Abs/@Table[t[[j, i-j+1]], {i, nn/2}, {j, i}]
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Gus Wiseman, Dec 14 2024
STATUS
approved