|
| |
|
|
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.
|
|
0
| |
|
|
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
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
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: A115507 A173252 A051502 * A173476 A136156 A191657
Adjacent sequences: A121718 A121719 A121720 * A121722 A121723 A121724
|
|
|
KEYWORD
| sign,tabl
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 08 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 01 2006
|
| |
|
|
