cp's OEIS Frontend

A086915 Triangle read by rows: T(n,k) = 2^k * (n!/k!)*binomial(n-1,k-1).

%I A086915 #40 Sep 08 2022 08:45:11
%S A086915 2,4,4,12,24,8,48,144,96,16,240,960,960,320,32,1440,7200,9600,4800,
%T A086915 960,64,10080,60480,100800,67200,20160,2688,128,80640,564480,1128960,
%U A086915 940800,376320,75264,7168,256,725760,5806080,13547520,13547520,6773760,1806336
%N A086915 Triangle read by rows: T(n,k) = 2^k * (n!/k!)*binomial(n-1,k-1).
%C A086915 Also the Bell transform of A052849(n+1). For the definition of the Bell transform see A264428. - _Peter Luschny_, Jan 26 2016
%C A086915 The coefficients of n! * L_n(-2*x,-1), where n! * L_n(-x,-1) are the normalized, unsigned Laguerre polynomials of order -1 of A105278, also known as the Lah polynomials, which are also a shifted version of n! * L_n(-x,1). Cf. p. 8 of the Gross and Matytsin link. - _Tom Copeland_, Sep 30 2016
%H A086915 G. C. Greubel, <a href="/A086915/b086915.txt">Rows n=1..100 of the triangle, flattened</a>
%H A086915 D. Gross and A. Matytsin, <a href="http://arxiv.org/abs/hep-th/9404004">Instanton induced large N phase transitions in two and four dimensional QCD</a>, arXiv:hep-th/9404004, 1994.
%H A086915 <a href="/index/La#Laguerre">Index entries for sequences related to Laguerre polynomials</a>
%F A086915 E.g.f.: exp(2*x*y/(1-x)).
%F A086915 From _G. C. Greubel_, Feb 23 2021: (Start)
%F A086915 T(n, k) = (-2)^k * A008297(n, k) = 2^k * A105278(n, k).
%F A086915 Sum_{k=1..n} T(n, k) = 2 * n! * Hypergeometric1F1([1-n], [2], -2) = 2*(n-1)! * LaguerreL(n-1, 1, -2) = A253286(n, 2). (End)
%e A086915 Triangle begins:
%e A086915    2;
%e A086915    4,   4;
%e A086915   12,  24,  8;
%e A086915   48, 144, 96, 16;
%e A086915   ...
%p A086915 # The function BellMatrix is defined in A264428.
%p A086915 # Adds (1, 0, 0, 0, ...) as column 0.
%p A086915 BellMatrix(n -> 2*(n+1)!, 9); # _Peter Luschny_, Jan 26 2016
%t A086915 Flatten[Table[n!/k! Binomial[n-1,k-1]2^k,{n,10},{k,n}]] (* _Harvey P. Dale_, May 25 2011 *)
%t A086915 BellMatrix[f_, len_] := With[{t = Array[f, len, 0]}, Table[BellY[n, k, t], {n, 0, len - 1}, {k, 0, len - 1}]];
%t A086915 B = BellMatrix[2*(#+1)!&, rows = 12];
%t A086915 Table[B[[n, k]], {n, 2, rows}, {k, 2, n}] // Flatten (* _Jean-François Alcover_, Jun 28 2018, after _Peter Luschny_ *)
%o A086915 (PARI) for(n=1,10, for(k=1, n, print1(n!/k!*binomial(n-1,k-1)*2^k, ", "))) \\ _G. C. Greubel_, May 23 2018
%o A086915 (Magma) [Factorial(n)*Binomial(n-1,k-1)*2^k/Factorial(k): k in [1..n], n in [1..10]]; // _G. C. Greubel_, May 23 2018
%Y A086915 Cf. A008297, A052897 (row sums), A059110, A079621, A105278.
%K A086915 nonn,tabl
%O A086915 1,1
%A A086915 _Vladeta Jovovic_, Sep 24 2003