A172088 - OEIS

%I #17 Sep 08 2022 08:45:50

%S -1,-1,-1,-1,0,-1,-1,0,0,-1,-1,4,4,4,-1,-1,6,10,10,6,-1,-1,32,38,42,

%T 38,32,-1,-1,56,88,94,94,88,56,-1,-1,278,334,366,368,366,334,278,-1,

%U -1,560,838,894,922,922,894,838,560,-1,-1,2894,3454,3732,3784,3810,3784,3732,3454,2894,-1

%N Triangle: T(n,m) = n!! - m!! - (n-m)!! read by rows 0 <= m <= n, where ()!! are the double factorials.

%C Row sums are {-1, -2, -2, -2, 10, 30, 180, 474, 2322, 6426, 31536, ...}; n-th row sum is (n+1)*n!! - 2*A129981(n).

%H G. C. Greubel, <a href="/A172088/b172088.txt">Rows n = 0..100 of triangle, flattened</a>

%F T(n,m) = A006882(n) - A006882(m) - A006882(n-m).

%e Triangle begins

%e   -1;

%e   -1,   -1;

%e   -1,    0,   -1;

%e   -1,    0,    0,   -1;

%e   -1,    4,    4,    4,   -1;

%e   -1,    6,   10,   10,    6,   -1;

%e   -1,   32,   38,   42,   38,   32,   -1;

%e   -1,   56,   88,   94,   94,   88,   56,   -1;

%e   -1,  278,  334,  366,  368,  366,  334,  278,   -1;

%e   -1,  560,  838,  894,  922,  922,  894,  838,  560,   -1;

%e   -1, 2894, 3454, 3732, 3784, 3810, 3784, 3732, 3454, 2894, -1;

%p A172088 := proc(n,m)

%p         doublefactorial(n)-doublefactorial(m)-doublefactorial(n-m) ;

%p end proc:

%p seq(seq(A172088(n,m),m=0..n),n=0..10) ; # _R. J. Mathar_, Oct 11 2011

%t T[n_, k_] = n!! -k!! -(n-k)!!; Table[T[n, k], {k,0,n}], {n,0,10}]//Flatten

%o (PARI) f2(n) = prod(j=0, (n-1)\2, n-2*j);

%o T(n,k) = f2(n) - f2(k) - f2(n-k); \\ _G. C. Greubel_, Dec 05 2019

%o (Magma) F2:=func< n | &*[n..2 by -2] >;

%o [F2(n) - F2(k) - F2(n-k): k in [0..n], n in [0..10]]; // _G. C. Greubel_, Dec 05 2019

%o (Sage)

%o def T(n, k): return (n).multifactorial(2) - (k).multifactorial(2) - (n-k).multifactorial(2)

%o [[T(n, k) for k in (0..n)] for n in (0..10)] # _G. C. Greubel_, Dec 05 2019

%Y Cf. A006882, A129981.

%K sign,tabl,easy

%O 0,12

%A _Roger L. Bagula_, Jan 25 2010