|
%I #19 Aug 10 2021 18:54:32
%S 1,1,3,1,13,8,8,1,73,63,89,78,41,15,1,501,544,909,1095,1200,842,680,
%T 315,129,24,1,4051,5225,9734,13799,18709,20441,20520,18101,14831,
%U 10200,5891,3199,1109,314,35,1,37633,55656,112370,177457,270746,352969,442897
%N Triangle T(n,k) read by rows: Sum_{k=0..binomial(n,2)} T(n,k)*q^k = n!*Sum_{pi} faq(n,q)/Product_{i=1..n} e(i)!*faq(i,q)^e(i), where pi runs over all nonnegative integer solutions to e(1) + 2*e(2) + ... + n*e(n) = n and faq(i,q) = Product_{j=1..i} (q^j-1)/(q-1), i = 1..n.
%C Sum_{k=0..binomial(n,2)} T(n,k)*exp(2*Pi*I*k/n)) = n!. - _Vladeta Jovovic_, Dec 05 2008
%H Alois P. Heinz, <a href="/A152474/b152474.txt">Rows n = 0..36, flattened</a>
%F From _Paul D. Hanna_, Dec 15 2008: (Start)
%F E.g.f.: A(x,q) = exp(e_q(x,q) - 1) = Sum_{n>=0} Sum_{k=0..n(n-1)/2} T(n,k)*q^k*x^n/(n!*faq(n,q)) where e_q(x,q) = Sum_{n>=0} x^n/faq(n,q) and faq(n,q) = Product_{j=1..n} (q^j-1)/(q-1) with faq(0,q)=1.
%F Sum_{k=0..n(n-1)/2} T(n,k)*(-1)^k = n!*A000110((n+1)/2), where A000110 is the Bell numbers. (End)
%e Triangle T(n,k) begins:
%e 1;
%e 1;
%e 3, 1;
%e 13, 8, 8, 1;
%e 73, 63, 89, 78, 41, 15, 1;
%e 501, 544, 909, 1095, 1200, 842, 680, 315, 129, 24, 1;
%e ...
%o (PARI) {T(n,k)=local(e_q=sum(j=0,n,x^j/prod(i=1,j,(q^i-1)/(q-1)))+x*O(x^n)); n!*polcoeff(polcoeff(exp(e_q-1),n,x)*prod(j=1,n,(q^j-1)/(q-1)),k,q)} \\ _Paul D. Hanna_, Dec 15 2008
%Y Cf. A000262 (first column), A105219(second column), A137341 (row sums), A152534.
%Y T(n,n) gives A346981.
%K nonn,tabf,easy
%O 0,3
%A _Vladeta Jovovic_, Dec 05 2008
%E T(0,0)=1 prepended by _Alois P. Heinz_, Feb 04 2018
|
