|
| |
|
|
A156286
|
|
A triangle sequence of Bonacci-sub-cyclotomic products: t(n,m)=Product[(m + 1)^k - Sum[(m + 1)^i, {i, 0, k - 1}], {k, 1, n}].
|
|
0
| |
|
|
1, 1, 10, 1, 140, 1419, 1, 5740, 242649, 3350536, 1, 700280, 165729267, 7853656384, 161827775045, 1, 255602200, 452606628177, 92036999164096, 6040221703554625, 193317016162131576, 1, 279628806800, 4943822199577371, 5392815929021041024
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Row sums are:
{1, 11, 1560, 3598926, 169847860977, 199449727727080675,
6865934126438514219252832, 7976884377248225786265193135312260,
353939382855068477427045685162150397688189321,
669670235239216530181251802226218417083916587419054158165,...}.
|
|
|
FORMULA
| t(n,m)=Product[(m + 1)^k - Sum[(m + 1)^i, {i, 0, k - 1}], {k, 1, n}].
|
|
|
EXAMPLE
| {1},
{1, 10},
{1, 140, 1419},
{1, 5740, 242649, 3350536},
{1, 700280, 165729267, 7853656384, 161827775045},
{1, 255602200, 452606628177, 92036999164096, 6040221703554625, 193317016162131576},
{1, 279628806800, 4943822199577371, 5392815929021041024, 1352701610289354714125, 132670761753844630766736, 6731905265314349384346775},
{1, 917462115110800, 216000535721734916361, 1579927889909365367760256, 1817615684834533903886763625, 637350472136231360048030510736, 96807968442600307205466651831025, 7879437239137660521803225348419456},
{1, 9029662136920493600, 37748901624337559187997443, 2314347889966394402771404440064, 14653903016798531354957998566639125, 21432825501100020993083330303213272416, 11137153365253862616274126619518563471175, 2671073500687511735356083200704531561607168, 351257150753533993326614926348135578270268329},
{1, 266600774592577573540000, 26388407429394795087928800526593, 16950790788301775246271973056601110016, 708852386051317366120033322142118961916625, 5045202270402786086788704336471733905380905056, 10250080603227096768159345631281003525701979858625, 8149275239440353045136966166009884151734104833363968, 3122285784514886290764747566797495687552177988696696481, 666539789924335689170605494953044984619573620036226240800}
|
|
|
MATHEMATICA
| Clear[t, n, m, i, k];
t[n_, m_] = Product[(m + 1)^k - Sum[(m + 1)^i, {i, 0, k - 1}], {k, 1, n}];
Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}];
Flatten[%]
|
|
|
CROSSREFS
| A156173
Sequence in context: A185544 A048882 A192357 * A049223 A131367 A048176
Adjacent sequences: A156283 A156284 A156285 * A156287 A156288 A156289
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 07 2009
|
| |
|
|
