A049458 Generalized Stirling number triangle of first kind.
1, -3, 1, 12, -7, 1, -60, 47, -12, 1, 360, -342, 119, -18, 1, -2520, 2754, -1175, 245, -25, 1, 20160, -24552, 12154, -3135, 445, -33, 1, -181440, 241128, -133938, 40369, -7140, 742, -42, 1, 1814400, -2592720, 1580508, -537628
Offset: 0
Examples
1; -3, 1; 12, -7, 1; -60, 47, -12, 1; 360, -342, 119, -18, 1; s(2,x) = 12-7*x+x^2. S1(2,x) = -x+x^2 (Stirling1 polynomial).
References
- Mitrinovic, D. S.; Mitrinovic, R. S.; Tableaux d'une classe de nombres relies aux nombres de Stirling. Univ. Beograd. Pubi. Elektrotehn. Fak. Ser. Mat. Fiz. No. 77 1962, 77 pp.
Links
- Reinhard Zumkeller, Rows n = 0..125 of triangle, flattened
Crossrefs
Programs
-
Haskell
a049458 n k = a049458_tabl !! n !! k a049458_row n = a049458_tabl !! n a049458_tabl = map fst $ iterate (\(row, i) -> (zipWith (-) ([0] ++ row) $ map (* i) (row ++ [0]), i + 1)) ([1], 3) -- Reinhard Zumkeller, Mar 11 2014
-
Maple
A049458_row := n -> seq((-1)^(n-k)*coeff(expand(pochhammer(x+3, n)), x, k), k=0..n): seq(print(A049458_row(n)),n=0..8); # Peter Luschny, May 16 2013
-
Mathematica
t[n_, k_] := (-1)^(n - k)*Coefficient[ Pochhammer[x + 3, n], x, k]; Table[t[n, k], {n, 0, 8}, {k, 0, n}] // Flatten (* Jean-François Alcover, Jul 17 2013, after Peter Luschny *)
Formula
a(n, m)= a(n-1, m-1) - (n+2)*a(n-1, m), n >= m >= 0; a(n, m) := 0, n
Triangle (signed) = [ -3, -1, -4, -2, -5, -3, -6, -4, -7, ...] DELTA [1, 0, 1, 0, 1, 0, 1, 0, ...]; triangle (unsigned) = [3, 1, 4, 2, 5, 3, 6, 4, 7, 5, ...] DELTA [1, 0, 1, 0, 1, 0, 1, 0, ...]; where DELTA is Deléham's operator defined in A084938 (unsigned version in A143492).
E.g.f.: (1+y)^(x-3). - Vladeta Jovovic, May 17 2004
If we define f(n,i,a)=sum(binomial(n,k)*stirling1(n-k,i)*product(-a-j,j=0..k-1),k=0..n-i), then T(n,i) = f(n,i,3), for n=1,2,...;i=0...n. - Milan Janjic, Dec 21 2008
Extensions
Second formula corrected by Philippe Deléham, Nov 09 2008
Comments