A142597 Triangle read by rows: t(n,k)=t(n - 1, k - 1) + 4* t(n - 1, k) + 3*t(n - 1, k - 1).

1, 1, 1, 1, 8, 1, 1, 36, 36, 1, 1, 148, 288, 148, 1, 1, 596, 1744, 1744, 596, 1, 1, 2388, 9360, 13952, 9360, 2388, 1, 1, 9556, 46992, 93248, 93248, 46992, 9556, 1, 1, 38228, 226192, 560960, 745984, 560960, 226192, 38228, 1, 1, 152916, 1057680, 3148608

Offset

1,5

Comments

Row sums are: {1, 2, 10, 74, 586, 4682, 37450, 299594, 2396746, 19173962, ...}.

Links

Table of n, a(n) for n=1..49.

Example

Triangle begins:
{1},
{1, 1},
{1, 8, 1},
{1, 36, 36, 1},
{1, 148, 288, 148, 1},
{1, 596, 1744, 1744, 596, 1},
{1, 2388, 9360, 13952, 9360, 2388, 1},
{1, 9556, 46992, 93248, 93248, 46992, 9556, 1},
{1, 38228, 226192, 560960, 745984, 560960, 226192, 38228, 1},
{1, 152916, 1057680, 3148608, 5227776, 5227776, 3148608, 1057680, 152916, 1}

Mathematica

A[n_, 1] := 1 A[n_, n_] := 1 A[n_, k_] := A[n - 1, k - 1] + 4* A[n - 1, k] + 3*A[n - 1, k - 1]; a = Table[A[n, k], {n, 10}, {k, n}]; Flatten[a]

Crossrefs

Cf. A142175, A142467.

Cf. A008292, A119258, A060187, A142175, A142467.

Sequence in context: A154335 A142467 A142175 * A156137 A152972 A166346

Adjacent sequences: A142594 A142595 A142596 * A142598 A142599 A142600

Keyword

nonn,tabl

Author

Roger L. Bagula, Sep 22 2008

Extensions

Edited by N. J. A. Sloane, Dec 07 2008

Status

approved