A121721 Triangle read by rows: T[n, m] = Sum[m^3 - 3*m^2*k + 3*m*k^2 - k^3, {k, 0, n - 1}] + m^4.

1, 0, 2, -1, 2, 25, -9, 1, 25, 117, -36, -7, 24, 117, 356, -100, -34, 16, 116, 356, 850, -225, -98, -11, 108, 355, 850, 1737, -441, -223, -75, 81, 347, 849, 1737, 3185, -784, -439, -200, 17, 320, 841, 1736, 3185, 5392, -1296, -782, -416, -108, 256, 814, 1728, 3184, 5392, 8586, -2025, -1294, -759, -324, 131, 750

Offset

1,3

Links

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

Example

1
0, 2
-1, 2, 25
-9, 1, 25, 117
-36, -7, 24, 117, 356
-100, -34, 16, 116, 356, 850

Mathematica

g[n_, m_] = Sum[m^3 - 3*m^2*k + 3*m*k^2 - k^3, {k, 0, n - 1}] + m^4 t[n_, m_] = If[n == 0, 1, g[n, m]] a = Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}] Flatten[a]

Crossrefs

Sequence in context: A173252 A051502 A228690 * A173476 A281129 A136156

Adjacent sequences: A121718 A121719 A121720 * A121722 A121723 A121724

Keyword

sign,tabl

Author

Roger L. Bagula, Sep 08 2006

Extensions

Edited by N. J. A. Sloane, Oct 01 2006

Status

approved