|
%I #25 Mar 29 2023 07:32:23
%S 1,1,1,1,1,2,1,2,1,1,3,3,4,3,3,1,1,4,6,8,9,8,6,4,1,1,5,10,15,20,21,20,
%T 15,10,5,1,1,6,15,26,39,48,52,48,39,26,15,6,1,1,7,21,42,70,98,119,127,
%U 119,98,70,42,21,7,1
%N Irregular triangle read by rows: Whitney numbers c_{n,k} (n >= 0, 0 <= k <= 2n) of Lucas lattices.
%H Mark E. AlSukaiti and Nafaa Chbili, <a href="https://arxiv.org/abs/2303.11398">Alexander and Jones Polynomials of weaving 3-braid links and Whitney rank polynomials of Lucas lattice</a>, arXiv:2303.11398 [math.GT], 2023.
%H E. Munarini and N. Zagaglia Salvi, <a href="http://dx.doi.org/10.1016/S0012-365X(02)00378-3">On the Rank Polynomial of the Lattice of Order Ideals of Fences and Crowns</a>, Discrete Mathematics 259 (2002), 163-177.
%F c(n,k) = n*Sum_{i=0..floor(k/2)} 1/(n-i)*binomial(n-i,n-k+i)*binomial(k-i-1,i) for 0<=k<=2*n-1; c(n,2*n) = 1. - _Leonid Bedratyuk_, May 15 2018
%e Triangle begins:
%e 1;
%e 1, 1, 1;
%e 1, 2, 1, 2, 1;
%e 1, 3, 3, 4, 3, 3, 1;
%e 1, 4, 6, 8, 9, 8, 6, 4, 1;
%e 1, 5, 10, 15, 20, 21, 20, 15, 10, 5, 1;
%e 1, 6, 15, 26, 39, 48, 52, 48, 39, 26, 15, 6, 1;
%e 1, 7, 21, 42, 70, 98, 119, 127, 119, 98, 70, 42, 21, 7, 1;
%e ...
%p c:= (n, k)-> `if`(k=2*n, 1, n*add(1/(n-i)*binomial(n-i, n-k+i)*binomial(k-i-1, i), i=0..floor(k/2))): seq(seq(c(n, k), k=0..2*n), n=0..8); # _Leonid Bedratyuk_, May 15 2018
%o (PARI) T(n,k) = if (k==2*n, 1, n*sum(i=0, k\2, 1/(n-i)*binomial(n-i,n-k+i)*binomial(k-i-1,i)));
%o tabf(nn) = for (n=0, nn, for (k=0, 2*n, print1(T(n,k), ", ")); print); \\ _Michel Marcus_, May 16 2018
%Y Main diagonal is A051292.
%K nonn,tabf
%O 0,6
%A _N. J. A. Sloane_, Jan 31 2012
|
