|
%I #5 Feb 08 2023 09:33:24
%S 1,3,8,21,104,315,105,1040,5355,19344,3255,125840,1826055,15107664,
%T 86590175,9765,880880,23738715,317260944,2684295425,16476602400,
%U 1240155,962801840,129637122615,6196423497264,150285647959475,2261529015616800,23895819265962735
%N A triangle sequence of Cyclotomic products: t(n,m)=Product[Cyclotomic[k, m + 1], {k, 1, n}].
%C Row sums are: {1, 11, 440, 25844, 103652989, 19502788129, 26313960954200884, 1365438215011770727764, 13180641383420867649481463463, 2480700284650078006965956163001113,...}.
%F T(n,m) = Product_{k=1..n} Cyclotomic(k, m + 1).
%e {1},
%e {3, 8},
%e {21, 104, 315},
%e {105, 1040, 5355, 19344},
%e {3255, 125840, 1826055, 15107664, 86590175},
%e {9765, 880880, 23738715, 317260944, 2684295425, 16476602400},
%e {1240155, 962801840, 129637122615, 6196423497264, 150285647959475, 2261529015616800, 23895819265962735},
%t Clear[t, n, m, i, k];
%t t[n_, m_] = Product[Cyclotomic[k, m + 1], {k, 1, n}];
%t Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}];
%t Flatten[%]
%o (PARI) T(n,m) = prod(k=1, n, polcyclo(k, m+1)); \\ _Michel Marcus_, Feb 08 2023
%Y Cf. A156173.
%K nonn,tabl,uned
%O 1,2
%A _Roger L. Bagula_, Feb 07 2009
|
