OFFSET
1,2
COMMENTS
Row sums are: {1, 11, 440, 25844, 103652989, 19502788129, 26313960954200884, 1365438215011770727764, 13180641383420867649481463463, 2480700284650078006965956163001113,...}.
FORMULA
T(n,m) = Product_{k=1..n} Cyclotomic(k, m + 1).
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},
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[%]
PROG
(PARI) T(n, m) = prod(k=1, n, polcyclo(k, m+1)); \\ Michel Marcus, Feb 08 2023
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Feb 07 2009
STATUS
approved