OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
EXAMPLE
Rows:
{1},
{1,1, 3},
{1,2, 7, 6, 9},
{1,3,12, 19, 36, 27, 27},
{1,4,18, 40, 91,120, 162, 108, 81},
{1,5,25, 70,185,331, 555, 630, 675, 405, 243},
{1,6,33,110,330,726,1441,2178,2970,2970,2673,1458,729},
MATHEMATICA
With[{eq = (1 + x + 3*x^2)}, Flatten[Table[CoefficientList[Expand[eq^n], x], {n, 0, 10}]]] (* G. C. Greubel, Mar 02 2017 *)
PROG
(PARI) for(n=0, 15, for(k=0, 2*n, t=polcoeff((1+x+3*x^2)^n, k, x); print1(t", ")); print(" "))
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Paul D. Hanna, Jun 01 2003
STATUS
approved