|
Search: id:A156722
|
|
|
| A156722 |
|
General qp linear weighted combinations as : m=1;q=2: t(n,m)=If[m == 0, n!, Product[Product[1 - (3*i - 2)*( m + 1), {i, 0, k - 1}], {k, 1, n}]]; b(n,k,m)=If[n == 0, 1, t[n, m]/(t[k, m]*t[n - k, m])]. |
|
+0
1
|
|
| 1, 1, 1, 1, -1, 1, 1, 7, 7, 1, 1, -91, 637, -91, 1, 1, 1729, 157339, 157339, 1729, 1, 1, -43225, 74736025, -971568325, 74736025, -43225, 1, 1, 1339975, 57920419375, 14306343585625, 14306343585625, 57920419375, 1339975, 1, 1, -49579075
(list; table; graph; listen)
|
|
|
OFFSET
|
0,8
|
|
|
COMMENT
|
Row sums are:
{1, 2, 1, 16, 457, 318138, -822182723, 28728530689952, 6974117708745434977, 19261978962188975367009202,
-534214799032712718854156506526423,...}.
|
|
FORMULA
|
m=1;q=2:
t(n,m)=If[m == 0, n!, Product[Product[1 - (3*i - 2)*( m + 1), {i, 0, k - 1}], {k, 1, n}]];
b(n,k,m)=If[n == 0, 1, t[n, m]/(t[k, m]*t[n - k, m])].
|
|
EXAMPLE
|
{1},
{1, 1},
{1, -1, 1},
{1, 7, 7, 1},
{1, -91, 637, -91, 1},
{1, 1729, 157339, 157339, 1729, 1},
{1, -43225, 74736025, -971568325, 74736025, -43225, 1},
{1, 1339975, 57920419375, 14306343585625, 14306343585625, 57920419375, 1339975, 1},
{1, -49579075, 66434721023125, -410234402317796875, 7794453644038140625, -410234402317796875, 66434721023125, -49579075, 1},
{1, 2131900225, 105697641147791875, 20233170956716059671875, 9610756204440128344140625, 9610756204440128344140625, 20233170956716059671875, 105697641147791875, 2131900225, 1},
{1, -104463111025, 222704929898397480625, -1577357774614627295959703125, 23226593231200386933006628515625, -580664830780009673325165712890625, 23226593231200386933006628515625, -1577357774614627295959703125, 222704929898397480625, -104463111025, 1}
|
|
MATHEMATICA
|
t[n_, m_] = If[m == 0, n!, Product[Product[1 - (3*i - 2)*(m + 1), {i, 0, k - 1}], {k, 1, n}]];
b[n_, k_, m_] = If[n == 0, 1, t[n, m]/(t[k, m]*t[n - k, m])];
Table[Flatten[Table[Table[b[n, k, m], {k, 0, n}], {n, 0, 10}]], {m, 0, 15}]
|
|
CROSSREFS
|
Sequence in context: A064890 A046542 A140136 this_sequence A152565 A146322 A011376
Adjacent sequences: A156719 A156720 A156721 this_sequence A156723 A156724 A156725
|
|
KEYWORD
|
sign,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 14 2009
|
|
|
Search completed in 0.002 seconds
|
