OFFSET
0,2
EXAMPLE
Triangle begins:
{1},
{5, 5},
{25, 81, 25},
{125, 2197, 2197, 125},
{625, 83521, 390625, 83521, 625},
{3125, 4084101, 115856201, 115856201, 4084101, 3125},
...
MATHEMATICA
Clear[p, n, m];
p[x_, n_, m_] := (1 + 4*Binomial[n, m]*x)^n;
Table[Table[ Apply[Plus, CoefficientList[p[x, n, m], x]], {m, 0, n}], {n, 0, 10}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Apr 10 2010
EXTENSIONS
Edited by Sean A. Irvine, Mar 19 2026
STATUS
approved
