|
| |
|
|
A156291
|
|
A triangle sequence of Cyclotomic products: t(n,m)=Product[Cyclotomic[k, m + 1], {k, 1, n}].
|
|
0
| |
|
|
1, 3, 8, 21, 104, 315, 105, 1040, 5355, 19344, 3255, 125840, 1826055, 15107664, 86590175, 9765, 880880, 23738715, 317260944, 2684295425, 16476602400, 1240155, 962801840, 129637122615, 6196423497264, 150285647959475, 2261529015616800
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Row sums are:
{1, 11, 440, 25844, 103652989, 19502788129, 26313960954200884,
1365438215011770727764, 13180641383420867649481463463,
2480700284650078006965956163001113,...}.
|
|
|
FORMULA
| t(n,m)=Product[Cyclotomic[k, m + 1], {k, 1, n}].
|
|
|
EXAMPLE
| {1},
{3, 8},
{21, 104, 315},
{105, 1040, 5355, 19344},
{3255, 125840, 1826055, 15107664, 86590175},
{9765, 880880, 23738715, 317260944, 2684295425, 16476602400},
{1240155, 962801840, 129637122615, 6196423497264, 150285647959475, 2261529015616800, 23895819265962735},
{21082635, 78949750880, 33316740512055, 3878961109287264, 194920485403439075, 5432192695511553600, 97901171532649325295, 1261906017941385776960},
{1539032355, 59764961416160, 138630957270660855, 61097516432383695264, 9136507912315399762475, 640960712721494743924800, 25714428011251073834008815, 671549787473885210310580160, 12482727009478890399038382579},
{16929355905, 3645662646385760, 28419346240485475275, 31831806061271905232544, 10150660290582409136109725, 1346658457427860456986004800, 93626232388965159829626095415, 3965501495033292166883975844800, 113480471243172592617657936025689, 2363159328838505209525526536471200}
|
|
|
MATHEMATICA
| Clear[t, n, m, i, k];
t[n_, m_] = Product[Cyclotomic[k, m + 1], {k, 1, n}];
Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}];
Flatten[%]
|
|
|
CROSSREFS
| A156173
Sequence in context: A000737 A192235 A148769 * A111136 A063937 A178525
Adjacent sequences: A156288 A156289 A156290 * A156292 A156293 A156294
|
|
|
KEYWORD
| nonn,tabl,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 07 2009
|
| |
|
|
