OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
EXAMPLE
Rows:
{1},
{1,1, 4},
{1,2, 9, 8, 16},
{1,3,15, 25, 60, 48, 64},
{1,4,22, 52,145, 208, 352, 256, 256},
{1,5,30, 90,285, 561,1140,1440,1920,1280,1024},
{1,6,39,140,495,1206,2841,4824,7920,8960,9984,6144,4096},
MATHEMATICA
With[{eq=(1+x+4x^2)}, Flatten[Table[CoefficientList[Expand[eq^n], x], {n, 0, 10}]]] (* Harvey P. Dale, May 19 2011 *)
PROG
(PARI) for(n=0, 10, for(k=0, 2*n, t=polcoeff((1+x+4*x^2)^n, k, x); print1(t", ")); print(" "))
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Paul D. Hanna, Jun 01 2003
STATUS
approved