OFFSET
0,3
LINKS
Seiichi Manyama, Rows n = 0..99, flattened
FORMULA
T(n,k) = A000292(k+1) for k=0..n.
Sum_{k=0..2n} (-1)^k * T(n,k) = A008794(n+2). - Alois P. Heinz, Feb 14 2025
EXAMPLE
Triangle begins:
1;
1, 4, 4;
1, 4, 10, 12, 9;
1, 4, 10, 20, 25, 24, 16;
1, 4, 10, 20, 35, 44, 46, 40, 25;
...
MATHEMATICA
row[n_]:=CoefficientList[Series[(Sum[(i+1)x^i, {i, 0, n}])^2, {x, 0, 2n}], x]; Array[row, 8, 0]//Flatten (* Stefano Spezia, Feb 15 2025 *)
PROG
(PARI) for(n=0, 10, print(Vecrev(sum(k=0, n, (k+1)*x^k)^2), ", "))
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Seiichi Manyama, Feb 29 2020
STATUS
approved