|
%I #24 Dec 18 2023 00:31:20
%S 1,0,1,1,1,2,2,3,4,6,-9,-7,-4,0,6,44,35,28,24,24,30,-165,-121,-86,-58,
%T -34,-10,20,594,429,308,222,164,130,120,140,-2037,-1443,-1014,-706,
%U -484,-320,-190,-70,70,6824,4787,3344,2330,1624,1140,820,630,560,630
%N Triangle read by rows interpolating the swinging subfactorial (A163650) with the swinging factorial (A056040).
%C An analog to the derangement triangle (A068106).
%H G. C. Greubel, <a href="/A163770/b163770.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%H Peter Luschny, <a href="/A180000/a180000.pdf">Die schwingende Fakultät und Orbitalsysteme</a>, August 2011.
%H Peter Luschny, <a href="http://www.luschny.de/math/swing/SwingingFactorial.html"> Swinging Factorial</a>.
%H M. Z. Spivey and L. L. Steil, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL9/Spivey/spivey7.html"> The k-Binomial Transforms and the Hankel Transform</a>, J. Integ. Seqs. Vol. 9 (2006), #06.1.1.
%F T(n,k) = Sum_{i=k..n} (-1)^(n-i)*binomial(n-k,n-i)*i$ where i$ denotes the swinging factorial of i (A056040).
%e 1
%e 0, 1
%e 1, 1, 2
%e 2, 3, 4, 6
%e -9, -7, -4, 0, 6
%e 44, 35, 28, 24, 24, 30
%e -165, -121, -86, -58, -34, -10, 20
%p DiffTria := proc(f,n,display) local m,A,j,i,T; T:=f(0);
%p for m from 0 by 1 to n-1 do A[m] := f(m);
%p for j from m by -1 to 1 do A[j-1] := A[j-1] - A[j] od;
%p for i from 0 to m do T := T,(-1)^(m-i)*A[i] od;
%p if display then print(seq(T[i],i=nops([T])-m..nops([T]))) fi;
%p od; subsop(1=NULL,[T]) end:
%p swing := proc(n) option remember; if n = 0 then 1 elif
%p irem(n, 2) = 1 then swing(n-1)*n else 4*swing(n-1)/n fi end:
%p Computes n rows of the triangle.
%p A163770 := n -> DiffTria(k->swing(k),n,true);
%p A068106 := n -> DiffTria(k->factorial(k),n,true);
%t sf[n_] := n!/Quotient[n, 2]!^2; t[n_, k_] := Sum[(-1)^(n - i)*Binomial[n - k, n - i]*sf[i], {i, k, n}]; Table[t[n, k], {n, 0, 9}, {k, 0, n}] // Flatten (* _Jean-François Alcover_, Jun 28 2013 *)
%Y Row sums are A163773.
%Y Cf. A056040, A163650, A163771, A163772, A068106.
%K sign,tabl
%O 0,6
%A _Peter Luschny_, Aug 05 2009
|
