|
%I #12 Jan 03 2023 02:09:39
%S 0,1,0,1,1,0,1,3,3,0,1,6,15,15,0,1,10,45,105,105,0,1,15,105,420,945,
%T 945,0,1,21,210,1260,4725,10395,10395,0,1,28,378,3150,17325,62370,
%U 135135,135135,0,1,36,630,6930,51975,270270,945945,2027025,2027025,0
%N Triangle read by rows giving coefficients of Bessel polynomial p_n(x).
%H G. C. Greubel, <a href="/A104548/b104548.txt">Rows n = 0..50 of the triangle, flattened</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BesselPolynomial.html">Bessel Polynomial</a>
%F From _G. C. Greubel_, Jan 02 2023: (Start)
%F T(n, k) = binomial(n-1,k)*(n+k-1)!/(2^k*(n-1)!), with T(n, n) = 0.
%F Sum_{k=0..n} T(n, k) = A001515(n-1).
%F Sum_{k=0..n} (-1)^k*T(n, k) = A000806(n-1).
%F Sum_{k=0..floor(n/2)} T(n-k, k) = A000085(n-1).
%F Sum_{k=0..floor(n/2)} (-1)^k*T(n-k, k) = A001464(n-1). (End)
%e Bessel polynomials begin with:
%e x;
%e x + x^2;
%e 3*x + 3*x^2 + x^3;
%e 15*x + 15*x^2 + 6*x^3 + x^4;
%e 105*x + 105*x^2 + 45*x^3 + 10*x^4 + x^5;
%e ...
%e Triangle of coefficients begins as:
%e 0;
%e 1, 0;
%e 1, 1 0;
%e 1, 3, 3 0;
%e 1, 6, 15, 15 0;
%e 1, 10, 45, 105, 105 0;
%e 1, 15, 105, 420, 945, 945 0;
%e 1, 21, 210, 1260, 4725, 10395, 10395 0;
%e 1, 28, 378, 3150, 17325, 62370, 135135, 135135 0;
%t T[n_, k_]:= If[k==n, 0, Binomial[n-1,k]*(n+k-1)!/(2^k*(n-1)!)];
%t Table[T[n, k], {n,0,12}, {k,0,n}]//Flatten (* _G. C. Greubel_, Jan 02 2023 *)
%o (Magma)
%o A104548:= func< n,k | k eq n select 0 else Binomial(n-1,k)*Factorial(n+k-1)/(2^k*Factorial(n-1)) >;
%o [A104548(n,k): k in [0..n], n in [0..13]]; // _G. C. Greubel_, Jan 02 2023
%o (SageMath)
%o def A104548(n,k): return 0 if (k==n) else binomial(n-1,k)*factorial(n+k-1)/(2^k*factorial(n-1))
%o flatten([[A104548(n,k) for k in range(n+1)] for n in range(13)]) # _G. C. Greubel_, Jan 02 2023
%Y Essentially the same as A001498 (the main entry).
%Y Cf. A000085, A000806, A001464, A001515.
%K nonn,tabl
%O 0,8
%A _Eric W. Weisstein_, Mar 14 2005
%E T(0, 0) = 0 prepended by _G. C. Greubel_, Jan 02 2023
|
