|
Search: id:A121721
|
|
|
| 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
|
|
| 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; listen)
|
|
|
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: A058260 A115507 A051502 this_sequence A136156 A155796 A141238
Adjacent sequences: A121718 A121719 A121720 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
