cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 25 results. Next

A130534 Triangle T(n,k), 0 <= k <= n, read by rows, giving coefficients of the polynomial (x+1)(x+2)...(x+n), expanded in increasing powers of x. T(n,k) is also the unsigned Stirling number |s(n+1, k+1)|, denoting the number of permutations on n+1 elements that contain exactly k+1 cycles.

Original entry on oeis.org

1, 1, 1, 2, 3, 1, 6, 11, 6, 1, 24, 50, 35, 10, 1, 120, 274, 225, 85, 15, 1, 720, 1764, 1624, 735, 175, 21, 1, 5040, 13068, 13132, 6769, 1960, 322, 28, 1, 40320, 109584, 118124, 67284, 22449, 4536, 546, 36, 1, 362880, 1026576, 1172700, 723680, 269325, 63273, 9450, 870, 45, 1
Offset: 0

Views

Author

Philippe Deléham, Aug 09 2007

Keywords

Comments

This triangle is an unsigned version of the triangle of Stirling numbers of the first kind, A008275, which is the main entry for these numbers. - N. J. A. Sloane, Jan 25 2011
Or, triangle T(n,k), 0 <= k <= n, read by rows given by [1,1,2,2,3,3,4,4,5,5,6,6,...] DELTA [1,0,1,0,1,0,1,0,1,0,1,0,...] where DELTA is the operator defined in A084938.
Reversal of A094638.
Equals A132393*A007318, as infinite lower triangular matrices. - Philippe Deléham, Nov 13 2007
From Johannes W. Meijer, Oct 07 2009: (Start)
The higher order exponential integrals E(x,m,n) are defined in A163931. The asymptotic expansion of the exponential integrals E(x,m=1,n) ~ (exp(-x)/x)*(1 - n/x + n*(n+1)/x^2 - n*(n+1)*(n+2)/x^3 + ...), see Abramowitz and Stegun. This formula follows from the general formula for the asymptotic expansion, see A163932. We rewrite E(x,m=1,n) ~ (exp(-x)/x)*(1 - n/x + (n^2+n)/x^2 - (2*n+3*n^2+n^3)/x^3 + (6*n+11*n^2+6*n^3+n^4)/x^3 - ...) and observe that the T(n,m) are the polynomials coefficients in the denominators. Looking at the a(n,m) formula of A028421, A163932 and A163934, and shifting the offset given above to 1, we can write T(n-1,m-1) = a(n,m) = (-1)^(n+m)*Stirling1(n,m), see the Maple program.
The asymptotic expansion leads for values of n from one to eleven to known sequences, see the cross-references. With these sequences one can form the triangles A008279 (right-hand columns) and A094587 (left-hand columns).
See A163936 for information about the o.g.f.s. of the right-hand columns of this triangle.
(End)
The number of elements greater than i to the left of i in a permutation gives the i-th element of the inversion vector. (Skiena-Pemmaraju 2003, p. 69.) T(n,k) is the number of n-permutations that have exactly k 0's in their inversion vector. See evidence in Mathematica code below. - Geoffrey Critzer, May 07 2010
T(n,k) counts the rooted trees with k+1 trunks in forests of "naturally grown" rooted trees with n+2 nodes. This corresponds to sums of coefficients of iterated derivatives representing vectors, Lie derivatives, or infinitesimal generators for flow fields and formal group laws. Cf. links in A139605. - Tom Copeland, Mar 23 2014
A refinement is A036039. - Tom Copeland, Mar 30 2014
From Tom Copeland, Apr 05 2014: (Start)
With initial n=1 and row polynomials of T as p(n,x)=x(x+1)...(x+n-1), the powers of x correspond to the number of trunks of the rooted trees of the "naturally-grown" forest referred to above. With each trunk allowed m colors, p(n,m) gives the number of such non-plane colored trees for the forest with each tree having n+1 vertices.
p(2,m) = m + m^2 = A002378(m) = 2*A000217(m) = 2*(first subdiag of |A238363|).
p(3,m) = 2m + 3m^2 + m^3 = A007531(m+2) = 3*A007290(m+2) = 3*(second subdiag A238363).
p(4,m) = 6m + 11m^2 + 6m^3 + m^4 = A052762(m+3) = 4*A033487(m) = 4*(third subdiag).
From the Joni et al. link, p(n,m) also represents the disposition of n distinguishable flags on m distinguishable flagpoles.
The chromatic polynomial for the complete graph K_n is the falling factorial, which encodes the colorings of the n vertices of K_n and gives a shifted version of p(n,m).
E.g.f. for the row polynomials: (1-y)^(-x).
(End)
A relation to derivatives of the determinant |V(n)| of the n X n Vandermonde matrix V(n) in the indeterminates c(1) thru c(n):
|V(n)| = Product_{1<=jTom Copeland, Apr 10 2014
From Peter Bala, Jul 21 2014: (Start)
Let M denote the lower unit triangular array A094587 and for k = 0,1,2,... define M(k) to be the lower unit triangular block array
/I_k 0\
\ 0 M/
having the k X k identity matrix I_k as the upper left block; in particular, M(0) = M. Then the present triangle equals the infinite matrix product M(0)*M(1)*M(2)*... (which is clearly well defined). See the Example section. (End)
For the relation of this rising factorial to the moments of Viennot's Laguerre stories, see the Hetyei link, p. 4. - Tom Copeland, Oct 01 2015
Can also be seen as the Bell transform of n! without column 0 (and shifted enumeration). For the definition of the Bell transform see A264428. - Peter Luschny, Jan 27 2016

Examples

			Triangle  T(n,k) begins:
n\k         0        1        2       3       4      5      6     7    8  9 10
n=0:        1
n=1:        1        1
n=2:        2        3        1
n=3:        6       11        6       1
n=4:       24       50       35      10       1
n=5:      120      274      225      85      15      1
n=6:      720     1764     1624     735     175     21      1
n=7:     5040    13068    13132    6769    1960    322     28     1
n=8:    40320   109584   118124   67284   22449   4536    546    36    1
n=9:   362880  1026576  1172700  723680  269325  63273   9450   870   45  1
n=10: 3628800 10628640 12753576 8409500 3416930 902055 157773 18150 1320 55  1
[Reformatted and extended by _Wolfdieter Lang_, Feb 05 2013]
T(3,2) = 6 because there are 6 permutations of {1,2,3,4} that have exactly 2 0's in their inversion vector: {1, 2, 4, 3}, {1, 3, 2, 4}, {1, 3, 4, 2}, {2, 1, 3, 4},{2, 3, 1, 4}, {2, 3, 4, 1}. The respective inversion vectors are {0, 0, 1}, {0, 1, 0}, {0, 2, 0}, {1, 0, 0}, {2, 0, 0}, {3, 0, 0}. - _Geoffrey Critzer_, May 07 2010
T(3,1)=11 since there are exactly 11 permutations of {1,2,3,4} with exactly 2 cycles, namely, (1)(234), (1)(243), (2)(134), (2)(143), (3)(124), (3)(142), (4)(123), (4)(143), (12)(34), (13)(24), and (14)(23). - _Dennis P. Walsh_, Jan 25 2011
From _Peter Bala_, Jul 21 2014: (Start)
With the arrays M(k) as defined in the Comments section, the infinite product M(0*)M(1)*M(2)*... begins
  / 1          \/1        \/1        \      / 1           \
  | 1  1       ||0 1      ||0 1      |      | 1  1        |
  | 2  2  1    ||0 1 1    ||0 0 1    |... = | 2  3  1     |
  | 6  6  3 1  ||0 2 2 1  ||0 0 1 1  |      | 6 11  6  1  |
  |24 24 12 4 1||0 6 6 3 1||0 0 2 2 1|      |24 50 35 10 1|
  |...         ||...      ||...      |      |...          |
(End)
		

References

  • John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See pp. 93-94.
  • Sriram Pemmaraju and Steven Skiena, Computational Discrete Mathematics, Cambridge University Press, 2003, pp. 69-71. [Geoffrey Critzer, May 07 2010]

Crossrefs

See A008275, which is the main entry for these numbers; A094638 (reversed rows).
From Johannes W. Meijer, Oct 07 2009: (Start)
Row sums equal A000142.
The asymptotic expansions lead to A000142 (n=1), A000142(n=2; minus a(0)), A001710 (n=3), A001715 (n=4), A001720 (n=5), A001725 (n=6), A001730 (n=7), A049388 (n=8), A049389 (n=9), A049398 (n=10), A051431 (n=11), A008279 and A094587.
Cf. A163931 (E(x,m,n)), A028421 (m=2), A163932 (m=3), A163934 (m=4), A163936.
(End)
Cf. A136662.

Programs

  • Haskell
    a130534 n k = a130534_tabl !! n !! k
    a130534_row n = a130534_tabl !! n
    a130534_tabl = map (map abs) a008275_tabl
    -- Reinhard Zumkeller, Mar 18 2013
  • Maple
    with(combinat): A130534 := proc(n,m): (-1)^(n+m)*stirling1(n+1,m+1) end proc: seq(seq(A130534(n,m), m=0..n), n=0..10); # Johannes W. Meijer, Oct 07 2009, revised Sep 11 2012
    # The function BellMatrix is defined in A264428.
    # Adds (1,0,0,0, ..) as column 0 (and shifts the enumeration).
    BellMatrix(n -> n!, 9); # Peter Luschny, Jan 27 2016
  • Mathematica
    Table[Table[ Length[Select[Map[ToInversionVector, Permutations[m]], Count[ #, 0] == n &]], {n, 0, m - 1}], {m, 0, 8}] // Grid (* Geoffrey Critzer, May 07 2010 *)
    rows = 10;
    t = Range[0, rows]!;
    T[n_, k_] := BellY[n, k, t];
    Table[T[n, k], {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jun 22 2018, after Peter Luschny *)

Formula

T(0,0) = 1, T(n,k) = 0 if k > n or if n < 0, T(n,k) = T(n-1,k-1) + n*T(n-1,k). T(n,0) = n! = A000142(n). T(2*n,n) = A129505(n+1). Sum_{k=0..n} T(n,k) = (n+1)! = A000142(n+1). Sum_{k=0..n} T(n,k)^2 = A047796(n+1). T(n,k) = |Stirling1(n+1,k+1)|, see A008275. (x+1)(x+2)...(x+n) = Sum_{k=0..n} T(n,k)*x^k. [Corrected by Arie Bos, Jul 11 2008]
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A000142(n), A000142(n+1), A001710(n+2), A001715(n+3), A001720(n+4), A001725(n+5), A001730(n+6), A049388(n), A049389(n), A049398(n), A051431(n) for x = -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, respectively. - Philippe Deléham, Nov 13 2007
For k=1..n, let A={a_1,a_2,...,a_k} denote a size-k subset of {1,2,...,n}. Then T(n,n-k) = Sum(Product_{i=1..k} a_i) where the sum is over all subsets A. For example, T(4,1)=50 since 1*2*3 + 1*2*4 + 1*3*4 + 2*3*4 = 50. - Dennis P. Walsh, Jan 25 2011
The preceding formula means T(n,k) = sigma_{n-k}(1,2,3,..,n) with the (n-k)-th elementary symmetric function sigma with the indeterminates chosen as 1,2,...,n. See the Oct 24 2011 comment in A094638 with sigma called there a. - Wolfdieter Lang, Feb 06 2013
From Gary W. Adamson, Jul 08 2011: (Start)
n-th row of the triangle = top row of M^n, where M is the production matrix:
1, 1;
1, 2, 1;
1, 3, 3, 1;
1, 4, 6, 4, 1;
... (End)
Exponential Riordan array [1/(1 - x), log(1/(1 - x))]. Recurrence: T(n+1,k+1) = Sum_{i=0..n-k} (n + 1)!/(n + 1 - i)!*T(n-i,k). - Peter Bala, Jul 21 2014

A173333 Triangle read by rows: T(n, k) = n! / k!, 1 <= k <= n.

Original entry on oeis.org

1, 2, 1, 6, 3, 1, 24, 12, 4, 1, 120, 60, 20, 5, 1, 720, 360, 120, 30, 6, 1, 5040, 2520, 840, 210, 42, 7, 1, 40320, 20160, 6720, 1680, 336, 56, 8, 1, 362880, 181440, 60480, 15120, 3024, 504, 72, 9, 1, 3628800, 1814400, 604800, 151200, 30240, 5040, 720, 90, 10, 1
Offset: 1

Views

Author

Reinhard Zumkeller, Feb 19 2010

Keywords

Comments

From Wolfdieter Lang, Jun 27 2012: (Start)
T(n-1,k), k=1,...,n-1, gives the number of representative necklaces with n beads (C_N symmetry) of n+1-k distinct colors, say c[1],c[2],...,c[n-k+1], corresponding to the color signature determined by the partition k,1^(n-k) of n. The representative necklaces have k beads of color c[1]. E.g., n=4, k=2: partition 2,1,1, color signature (parts as exponents) c[1]c[1]c[2]c[3], 3=T(3,2) necklaces (write j for color c[j]): cyclic(1123), cyclic(1132) and cyclic(1213). See A212359 for the numbers for general partitions or color signatures. (End)

Examples

			Triangle starts:
n\k      1       2      3      4     5    6   7  8  9 10 ...
1        1
2        2       1
3        6       3      1
4       24      12      4      1
5      120      60     20      5     1
6      720     360    120     30     6    1
7     5040    2520    840    210    42    7   1
8    40320   20160   6720   1680   336   56   8  1
9   362880  181440  60480  15120  3024  504  72  9  1
10 3628800 1814400 604800 151200 30240 5040 720 90 10  1
... - _Wolfdieter Lang_, Jun 27 2012
		

Crossrefs

Row sums give A002627.
Central terms give A006963:
T(2*n-1,n) = A006963(n+1).
T(2*n,n) = A001813(n).
T(2*n,n+1) = A001761(n).
1 < k <= n: T(n,k) = T(n,k-1) / k.
1 <= k <= n: T(n+1,k) = A119741(n,n-k+1).
1 <= k <= n: T(n+1,k+1) = A162995(n,k).
T(n,1) = A000142(n).
T(n,2) = A001710(n) for n>1.
T(n,3) = A001715(n) for n>2.
T(n,4) = A001720(n) for n>3.
T(n,5) = A001725(n) for n>4.
T(n,6) = A001730(n) for n>5.
T(n,7) = A049388(n-7) for n>6.
T(n,8) = A049389(n-8) for n>7.
T(n,9) = A049398(n-9) for n>8.
T(n,10) = A051431(n) for n>9.
T(n,n-7) = A159083(n+1) for n>7.
T(n,n-6) = A053625(n+1) for n>6.
T(n,n-5) = A052787(n) for n>5.
T(n,n-4) = A052762(n) for n>4.
T(n,n-3) = A007531(n) for n>3.
T(n,n-2) = A002378(n-1) for n>2.
T(n,n-1) = A000027(n) for n>1.
T(n,n) = A000012(n).

Programs

  • Haskell
    a173333 n k = a173333_tabl !! (n-1) !! (k-1)
    a173333_row n = a173333_tabl !! (n-1)
    a173333_tabl = map fst $ iterate f ([1], 2)
       where f (row, i) = (map (* i) row ++ [1], i + 1)
    -- Reinhard Zumkeller, Jul 04 2012
  • Mathematica
    Table[n!/k!, {n, 1, 10}, {k, 1, n}] // Flatten (* Jean-François Alcover, Mar 01 2019 *)

Formula

E.g.f.: (exp(x*y) - 1)/(x*(1 - y)). - Olivier Gérard, Jul 07 2011
T(n,k) = A094587(n,k), 1 <= k <= n. - Reinhard Zumkeller, Jul 05 2012

A245334 A factorial-like triangle read by rows: T(0,0) = 1; T(n+1,0) = T(n,0)+1; T(n+1,k+1) = T(n,0)*T(n,k), k=0..n.

Original entry on oeis.org

1, 2, 1, 3, 4, 2, 4, 9, 12, 6, 5, 16, 36, 48, 24, 6, 25, 80, 180, 240, 120, 7, 36, 150, 480, 1080, 1440, 720, 8, 49, 252, 1050, 3360, 7560, 10080, 5040, 9, 64, 392, 2016, 8400, 26880, 60480, 80640, 40320, 10, 81, 576, 3528, 18144, 75600, 241920, 544320
Offset: 0

Views

Author

Reinhard Zumkeller, Aug 30 2014

Keywords

Comments

row(0) = {1}; row(n+1) = row(n) multiplied by n and prepended with (n+1);
A111063(n+1) = sum of n-th row;
T(2*n,n) = A002690(n), central terms;
T(n,0) = n + 1;
T(n,1) = A000290(n), n > 0;
T(n,2) = A011379(n-1), n > 1;
T(n,3) = A047927(n), n > 2;
T(n,4) = A192849(n-1), n > 3;
T(n,5) = A000142(5) * A027810(n-5), n > 4;
T(n,6) = A000142(6) * A027818(n-6), n > 5;
T(n,7) = A000142(7) * A056001(n-7), n > 6;
T(n,8) = A000142(8) * A056003(n-8), n > 7;
T(n,9) = A000142(9) * A056114(n-9), n > 8;
T(n,n-10) = 11 * A051431(n-10), n > 9;
T(n,n-9) = 10 * A049398(n-9), n > 8;
T(n,n-8) = 9 * A049389(n-8), n > 7;
T(n,n-7) = 8 * A049388(n-7), n > 6;
T(n,n-6) = 7 * A001730(n), n > 5;
T(n,n-5) = 6 * A001725(n), n > 5;
T(n,n-4) = 5 * A001720(n), n > 4;
T(n,n-3) = 4 * A001715(n), n > 2;
T(n,n-2) = A070960(n), n > 1;
T(n,n-1) = A052849(n), n > 0;
T(n,n) = A000142(n);
T(n,k) = A137948(n,k) * A007318(n,k), 0 <= k <= n.

Examples

			.  0:   1;
.  1:   2,  1;
.  2:   3,  4,   2;
.  3:   4,  9,  12,    6;
.  4:   5, 16,  36,   48,    24;
.  5:   6, 25,  80,  180,   240,   120;
.  6:   7, 36, 150,  480,  1080,  1440,    720;
.  7:   8, 49, 252, 1050,  3360,  7560,  10080,   5040;
.  8:   9, 64, 392, 2016,  8400, 26880,  60480,  80640,  40320;
.  9:  10, 81, 576, 3528, 18144, 75600, 241920, 544320, 725760, 362880.
		

Crossrefs

Programs

  • Haskell
    a245334 n k = a245334_tabl !! n !! k
    a245334_row n = a245334_tabl !! n
    a245334_tabl = iterate (\row@(h:_) -> (h + 1) : map (* h) row) [1]
  • Mathematica
    Table[(n!)/((n - k)!)*(n + 1 - k), {n, 0, 9}, {k, 0, n}] // Flatten (* Michael De Vlieger, Sep 10 2017 *)

Formula

T(n,k) = n!*(n+1-k)/(n-k)!. - Werner Schulte, Sep 09 2017

A256890 Triangle T(n,k) = t(n-k, k); t(n,m) = f(m)*t(n-1,m) + f(n)*t(n,m-1), where f(x) = x + 2.

Original entry on oeis.org

1, 2, 2, 4, 12, 4, 8, 52, 52, 8, 16, 196, 416, 196, 16, 32, 684, 2644, 2644, 684, 32, 64, 2276, 14680, 26440, 14680, 2276, 64, 128, 7340, 74652, 220280, 220280, 74652, 7340, 128, 256, 23172, 357328, 1623964, 2643360, 1623964, 357328, 23172, 256, 512, 72076, 1637860, 10978444, 27227908, 27227908, 10978444, 1637860, 72076, 512
Offset: 0

Views

Author

Dale Gerdemann, Apr 12 2015

Keywords

Comments

Related triangles may be found by varying the function f(x). If f(x) is a linear function, it can be parameterized as f(x) = a*x + b. With different values for a and b, the following triangles are obtained:
a\b 1.......2.......3.......4.......5.......6
The row sums of these, and similarly constructed number triangles, are shown in the following table:
a\b 1.......2.......3.......4.......5.......6.......7.......8.......9
The formula can be further generalized to: t(n,m) = f(m+s)*t(n-1,m) + f(n-s)*t(n,m-1), where f(x) = a*x + b. The following table specifies triangles with nonzero values for s (given after the slash).
a\b 0 1 2 3
-2 A130595/1
-1
0
With the absolute value, f(x) = |x|, one obtains A038221/3, A038234/4, A038247/5, A038260/6, A038273/7, A038286/8, A038299/9 (with value for s after the slash).
If f(x) = A000045(x) (Fibonacci) and s = 1, the result is A010048 (Fibonomial).
In the notation of Carlitz and Scoville, this is the triangle of generalized Eulerian numbers A(r, s | alpha, beta) with alpha = beta = 2. Also the array A(2,1,4) in the notation of Hwang et al. (see page 31). - Peter Bala, Dec 27 2019

Examples

			Array, t(n, k), begins as:
   1,    2,      4,        8,        16,         32,          64, ...;
   2,   12,     52,      196,       684,       2276,        7340, ...;
   4,   52,    416,     2644,     14680,      74652,      357328, ...;
   8,  196,   2644,    26440,    220280,    1623964,    10978444, ...;
  16,  684,  14680,   220280,   2643360,   27227908,   251195000, ...;
  32, 2276,  74652,  1623964,  27227908,  381190712,  4677894984, ...;
  64, 7340, 357328, 10978444, 251195000, 4677894984, 74846319744, ...;
Triangle, T(n, k), begins as:
    1;
    2,     2;
    4,    12,      4;
    8,    52,     52,       8;
   16,   196,    416,     196,      16;
   32,   684,   2644,    2644,     684,      32;
   64,  2276,  14680,   26440,   14680,    2276,     64;
  128,  7340,  74652,  220280,  220280,   74652,   7340,   128;
  256, 23172, 357328, 1623964, 2643360, 1623964, 357328, 23172,   256;
		

Crossrefs

Programs

  • Magma
    A256890:= func< n,k | (&+[(-1)^(k-j)*Binomial(j+3,j)*Binomial(n+4,k-j)*(j+2)^n: j in [0..k]]) >;
    [A256890(n,k): k in [0..n], n in [0..10]]; // G. C. Greubel, Oct 18 2022
    
  • Mathematica
    Table[Sum[(-1)^(k-j)*Binomial[j+3, j] Binomial[n+4, k-j] (j+2)^n, {j,0,k}], {n,0, 9}, {k,0,n}]//Flatten (* Michael De Vlieger, Dec 27 2019 *)
  • PARI
    t(n,m) = if ((n<0) || (m<0), 0, if ((n==0) && (m==0), 1, (m+2)*t(n-1, m) + (n+2)*t(n, m-1)));
    tabl(nn) = {for (n=0, nn, for (k=0, n, print1(t(n-k, k), ", ");); print(););} \\ Michel Marcus, Apr 14 2015
    
  • SageMath
    def A256890(n,k): return sum((-1)^(k-j)*Binomial(j+3,j)*Binomial(n+4,k-j)*(j+2)^n for j in range(k+1))
    flatten([[A256890(n,k) for k in range(n+1)] for n in range(11)]) # G. C. Greubel, Oct 18 2022

Formula

T(n,k) = t(n-k, k); t(0,0) = 1, t(n,m) = 0 if n < 0 or m < 0 else t(n,m) = f(m)*t(n-1,m) + f(n)*t(n,m-1), where f(x) = x + 2.
Sum_{k=0..n} T(n, k) = A001715(n).
T(n,k) = Sum_{j = 0..k} (-1)^(k-j)*binomial(j+3,j)*binomial(n+4,k-j)*(j+2)^n. - Peter Bala, Dec 27 2019
Modified rule of Pascal: T(0,0) = 1, T(n,k) = 0 if k < 0 or k > n else T(n,k) = f(n-k) * T(n-1,k-1) + f(k) * T(n-1,k), where f(x) = x + 2. - Georg Fischer, Nov 11 2021
From G. C. Greubel, Oct 18 2022: (Start)
T(n, n-k) = T(n, k).
T(n, 0) = A000079(n). (End)

A049389 a(n) = (n+8)!/8!.

Original entry on oeis.org

1, 9, 90, 990, 11880, 154440, 2162160, 32432400, 518918400, 8821612800, 158789030400, 3016991577600, 60339831552000, 1267136462592000, 27877002177024000, 641171050071552000, 15388105201717248000, 384702630042931200000, 10002268381116211200000
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher-order exponential integral E(x,m=1,n=9) ~ exp(-x)/x*(1 - 9/x + 90/x^2 - 990/x^3 + 11880/x^4 - 154440/x^5 + ...) leads to the sequence given above. See A163931 and A130534 for more information. - Johannes W. Meijer, Oct 20 2009

Crossrefs

Programs

  • Haskell
    a049389 = (flip div 40320) . a000142 . (+ 8)
    -- Reinhard Zumkeller, Aug 31 2014
  • Magma
    [Factorial(n+8)/40320: n in [0..25]]; // Vincenzo Librandi, Jul 20 2011
    
  • Mathematica
    a[n_] := (n + 8)!/8!; Array[a, 20, 0] (* Amiram Eldar, Jan 15 2023 *)
  • PARI
    a(n) = (n+8)!/8!;
    

Formula

a(n)= A051380(n, 0)*(-1)^n (first unsigned column of triangle).
a(n) = (n+8)!/8!.
E.g.f.: 1/(1-x)^9.
a(n) = A173333(n+8,8). - Reinhard Zumkeller, Feb 19 2010
a(n) = A245334(n+8,n) / 9. - Reinhard Zumkeller, Aug 31 2014
From Amiram Eldar, Jan 15 2023: (Start)
Sum_{n>=0} 1/a(n) = 40320*e - 109600.
Sum_{n>=0} (-1)^n/a(n) = 40320/e - 14832. (End)

A051560 Second unsigned column of triangle A051379.

Original entry on oeis.org

0, 1, 17, 242, 3382, 48504, 725592, 11393808, 188204400, 3270729600, 59753750400, 1146140409600, 23046980025600, 485075533132800, 10669304848204800, 244861798361241600, 5854837379724748800
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=8) ~ exp(-x)/x^2*(1 - 17/x + 242/x^2 - 3382/x^3 + 48504/x^4 - 725592/x^5 + 11393808/x^6 - ...) leads to the sequence given above. See A163931 and A028421 for more information. - Johannes W. Meijer, Oct 20 2009

References

  • Mitrinovic, D. S. and Mitrinovic, R. S. see reference given for triangle A051379.

Crossrefs

Cf. A049388 (first unsigned column).
Related to n!*the k-th successive summation of the harmonic numbers: k=0..A000254, k=1..A001705, k= 2..A001711, k=3..A001716, k=4..A001721, k=5..A051524, k=6..A051545, k=7..A051560, k=8..A051562, k=9..A051564. - Gary Detlefs Jan 04 2011

Programs

  • Mathematica
    f[k_] := k + 7; t[n_] := Table[f[k], {k, 1, n}]
    a[n_] := SymmetricPolynomial[n - 1, t[n]]
    Table[a[n], {n, 1, 16}]
    (* Clark Kimberling, Dec 29 2011 *)

Formula

a(n) = A051379(n, 2)*(-1)^(n-1).
E.g.f.: -log(1-x)/(1-x)^8.
a(n) = n!*Sum_{k=0..n-1} ((-1)^k*binomial(-8,k)/(n-k)), for n>=1. - Milan Janjic, Dec 14 2008
a(n) = n!*[7]h(n), where [k]h(n) denotes the k-th successive summation of the harmonic numbers from 0 to n. - Gary Detlefs, Jan 04 2011
Conjecture: a(n) +(-2*n-13)*a(n-1) +(n+6)^2*a(n-2)=0. - R. J. Mathar, Aug 04 2013

A049398 a(n) = (n+9)!/9!.

Original entry on oeis.org

1, 10, 110, 1320, 17160, 240240, 3603600, 57657600, 980179200, 17643225600, 335221286400, 6704425728000, 140792940288000, 3097444686336000, 71241227785728000, 1709789466857472000, 42744736671436800000, 1111363153457356800000, 30006805143348633600000
Offset: 0

Views

Author

Keywords

Comments

The p=9 member of the p-family of sequences {(n+p-1)!/p!}, n >= 1.
The asymptotic expansion of the higher order exponential integral E(x,m=1,n=10) ~ exp(-x)/x*(1 - 10/x + 110/x^2 - 1320/x^3 + 17160/x^4 - 240240/x^5 + 3603600/x^6 - ...) leads to the sequence given above. See A163931 and A130534 for more information. - Johannes W. Meijer, Oct 20 2009

Crossrefs

Programs

  • Haskell
    a049398 = (flip div 362880) . a000142 . (+ 9)
    -- Reinhard Zumkeller, Aug 31 2014
  • Magma
    [Factorial(n+9)/362880: n in [0..25]]; // Vincenzo Librandi, Jul 20 2011
    
  • Mathematica
    a[n_] := (n + 9)!/9!; Array[a, 20, 0] (* Amiram Eldar, Jan 15 2023 *)
  • PARI
    a(n) = (n+9)!/9!
    

Formula

E.g.f.: 1/(1-x)^10.
a(n) = A173333(n+9,9). - Reinhard Zumkeller, Feb 19 2010
a(n) = A245334(n+9,n) / 10. - Reinhard Zumkeller, Aug 31 2014
From Amiram Eldar, Jan 15 2023: (Start)
Sum_{n>=0} 1/a(n) = 362880*e - 986409.
Sum_{n>=0} (-1)^n/a(n) = 133497 - 362880/e. (End)

A051431 a(n) = (n+10)!/10!.

Original entry on oeis.org

1, 11, 132, 1716, 24024, 360360, 5765760, 98017920, 1764322560, 33522128640, 670442572800, 14079294028800, 309744468633600, 7124122778572800, 170978946685747200, 4274473667143680000, 111136315345735680000, 3000680514334863360000, 84019054401376174080000
Offset: 0

Views

Author

Keywords

Comments

The p=10 member of the p-family of sequences {(n+p-1)!/p!}, n >= 1.
The asymptotic expansion of the higher-order exponential integral E(x,m=1,n=11) ~ exp(-x)/x*(1 - 11/x + 132/x^2 - 1716/x^3 + 24024/x^4 - 360360/x^5 + 5765760/x^6 - ...) leads to the sequence given above. See A163931 and A130534 for more information. - Johannes W. Meijer, Oct 20 2009

Crossrefs

Programs

  • Haskell
    a051431 = (flip div 3628800) . a000142 . (+ 10)
    -- Reinhard Zumkeller, Aug 31 2014
  • Magma
    [Factorial(n+10)/3628800: n in [0..25]]; // Vincenzo Librandi, Jul 20 2011
    
  • Mathematica
    a[n_] := (n + 10)!/10!; Array[a, 20, 0] (* Amiram Eldar, Jan 15 2023 *)

Formula

a(n) = (n+10)!/10!
E.g.f.: 1/(1-x)^11.
a(n) = A173333(n+10,10). - Reinhard Zumkeller, Feb 19 2010
a(n) = A245334(n+10,n) / 11. - Reinhard Zumkeller, Aug 31 2014
From Amiram Eldar, Jan 15 2023: (Start)
Sum_{n>=0} 1/a(n) = 3628800*e - 9864100.
Sum_{n>=0} (-1)^n/a(n) = 3628800/e - 1334960. (End)

A094645 Triangle of generalized Stirling numbers of the first kind.

Original entry on oeis.org

1, -1, 1, 0, -1, 1, 0, -1, 0, 1, 0, -2, -1, 2, 1, 0, -6, -5, 5, 5, 1, 0, -24, -26, 15, 25, 9, 1, 0, -120, -154, 49, 140, 70, 14, 1, 0, -720, -1044, 140, 889, 560, 154, 20, 1, 0, -5040, -8028, -64, 6363, 4809, 1638, 294, 27, 1, 0, -40320, -69264, -8540, 50840, 44835, 17913, 3990, 510, 35, 1
Offset: 0

Views

Author

Vladeta Jovovic, May 17 2004

Keywords

Comments

From Wolfdieter Lang, Jun 20 2011: (Start)
The row polynomials s(n,x) := Sum_{j=0..n} T(n,k)*x^k satisfy risefac(x-1,n) = s(n,x), with the rising factorials risefac(x-1,n) := Product_{j=0..n-1} (x-1+j), n >= 1, risefac(x-1,0) = 1. Compare with the formula risefac(x,n) = s1(n,x), with the row polynomials s1(n,x) of A132393 (unsigned Stirling1).
This is the lower triangular Sheffer array with e.g.f.
T(x,z) = (1-z)*exp(-x*log(1-z)) (the rewritten e.g.f. from the formula section). See the W. Lang link under A006232 for Sheffer matrices and the Roman reference. In the notation which indicates the column e.g.f.s this is Sheffer (1-z,-log(1-z)). In the umbral notation (cf. Roman) this is called Sheffer for (exp(t),1-exp(-t)).
The row polynomials satisfy s(n,x) = (x+n-1)*s(n-1,x), s(0,x)=1, and s(n,x) = (x-1)*s1(n-1,x), n >= 1, s1(0,x) = 1, with the unsigned Stirling1 row polynomials s1(n,x).
The row polynomials also satisfy
s(n,x) - s(n,x-1) = n*s(n-1,x), n > 1, s(0,x) = 1
(from the Meixner identity, see the Meixner reference given at A060338).
The row polynomials satisfy as well (from corollary 3.7.2. p. 50 of the Roman reference)
s(n,x) = (x-1)*s(n-1,x+1), n >= 1, s(0,n) = 1.
The exponential convolution identity is
s(n,x+y) = Sum_{k=0..n} binomial(n,k)*s(k,y)*s1(n-k,x),
n >= 0, with symmetry x <-> y.
The row sums are 1 for n=0 and 0 otherwise, and the alternating row sums are 1,-2,2, followed by zeros, with e.g.f. (1-x)^2.
The Sheffer a-sequence Sha(n) = A164555(n)/A027642(n) with e.g.f. x/(1-exp(-x)), and the z-sequence is Shz(n) = -1 with e.g.f. -exp(x).
The inverse Sheffer matrix is ((-1)^(n-k))*A105794(n,k) with e.g.f. exp(z)*exp(x*(1-exp(-z))). (End)
Triangle T(n,k), read by rows, given by (-1, 1, 0, 2, 1, 3, 2, 4, 3, 5, ...) DELTA (1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, ...) where DELTA is the operator defined in A084938. - Philippe Deléham, Jan 16 2012
Also coefficients of t in t*(t-1)*Sum[(-1)^(n+m) t^(m-1) StirlingS1[n,m], {m,n}] in which setting t^k equal to k gives n!, from this follows that the dot product of row n with [0,...,n] equals (n-1)!. - Wouter Meeussen, May 15 2012

Examples

			Triangle begins
   1;
  -1,   1;
   0,  -1,   1;
   0,  -1,   0,   1;
   0,  -2,  -1,   2,   1;
   0,  -6,  -5,   5,   5,   1;
   0, -24, -26,  15,  25,   9,   1;
   ...
Recurrence:
  -2 = T(4,1) = T(3,0) + (4-2)*T(3,1) = 0 + 2*(-1).
Row polynomials:
  s(3,x) = -x+x^3 = (x-1)*s1(2,x) = (x-1)*(x+x^2).
  s(3,x) = (x-1)*s(2,x+1) = (x-1)*(-(x+1)+(x+1)^2).
  s(3,x) - s(3,x-1) = -x+x^3 -(-(x-1)+(x-1)^3) = 3*(-x+x^2) = 3*s(2,x).
		

References

  • S. Roman, The Umbral Calculus, Academic Press, New York, 1984.

Crossrefs

Programs

Formula

E.g.f.: (1-y)^(1-x).
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A000142(n), A000142(n+1), A001710(n+2), A001715(n+3), A001720(n+4), A001725(n+5), A001730(n+6), A049388(n), A049389(n), A049398(n), A051431(n) for x = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 respectively. - Philippe Deléham, Nov 13 2007
If we define f(n,i,a) = Sum_{k=0..n-i} binomial(n,k)*Stirling1(n-k,i)*Product_{j=0..k-1} (-a-j), then |T(n,i)| = |f(n,i,-1)|, for n=1,2,...; i=0..n. - Milan Janjic, Dec 21 2008
From Wolfdieter Lang, Jun 20 2011: (Start)
T(n,k) = |S1(n-1,k-1)| - |S1(n-1,k)|, n >= 1, k >= 1, with |S1(n,k)| = A132393(n,k) (unsigned Stirling1).
Recurrence: T(n,k) = T(n-1,k-1) + (n-2)*T(n-1,k) if n >= k >= 0; T(n,k) = 0 if n < k; T(n,-1) = 0; T(0,0) = 1.
E.g.f. column k: (1-x)*((-log(1-x))^k)/k!. (End)
T(n,k) = Sum_{i=0..n} binomial(n,i)*(n-i)!*Stirling1(i,k)*TC(m,n,i) where TC(m,n,k) = Sum_{i=0..n-k} binomial(n+1,n-k-i)*Stirling2(i+m+1,i+1)*(-1)^i, m = 1 for n >= 0. See A130534, A370518 for m=0 and m=2. - Igor Victorovich Statsenko, Feb 27 2024

A051339 Generalized Stirling number triangle of first kind.

Original entry on oeis.org

1, -7, 1, 56, -15, 1, -504, 191, -24, 1, 5040, -2414, 431, -34, 1, -55440, 31594, -7155, 805, -45, 1, 665280, -434568, 117454, -16815, 1345, -57, 1, -8648640, 6314664, -1961470, 336049, -34300, 2086, -70, 1, 121080960, -97053936, 33775244, -6666156, 816249, -63504, 3066, -84, 1
Offset: 0

Views

Author

Keywords

Comments

a(n,m)= ^7P_n^m in the notation of the given reference with a(0,0) := 1. The monic row polynomials s(n,x) := sum(a(n,m)*x^m,m=0..n) which are s(n,x)= product(x-(7+k),k=0..n-1), n >= 1 and s(0,x)=1 satisfy s(n,x+y) = sum(binomial(n,k)*s(k,x)*S1(n-k,y),k=0..n), with the Stirling1 polynomials S1(n,x)=sum(A008275(n,m)*x^m, m=1..n) and S1(0,x)=1. In the umbral calculus (see the S. Roman reference given in A048854) the s(n,x) polynomials are called Sheffer for (exp(7*t),exp(t)-1).

Examples

			{1}; {-7,1}; {56,-15,1}; {-504,191,-24,1}; ... s(2,x)= 56-15*x+x^2; S1(2,x)= -x+x^2 (Stirling1).
		

Crossrefs

The first (m=0) column sequence is A001730. Row sums (signed triangle): A001725(n+5)*(-1)^n. Row sums (unsigned triangle): A049388(n).

Programs

  • Haskell
    a051339 n k = a051339_tabl !! n !! k
    a051339_row n = a051339_tabl !! n
    a051339_tabl = map fst $ iterate (\(row, i) ->
       (zipWith (-) ([0] ++ row) $ map (* i) (row ++ [0]), i + 1)) ([1], 7)
    -- Reinhard Zumkeller, Mar 11 2014
  • Mathematica
    a[n_, m_] := Pochhammer[m + 1, n - m] SeriesCoefficient[Log[1 + x]^m/(1 + x)^7, {x, 0, n}];
    Table[a[n, m], {n, 0, 8}, {m, 0, n}] // Flatten (* Jean-François Alcover, Oct 29 2019 *)

Formula

a(n, m)= a(n-1, m-1) - (n+6)*a(n-1, m), n >= m >= 0; a(n, m) := 0, n
E.g.f. for m-th column of signed triangle: ((log(1+x))^m)/(m!*(1+x)^7).
Triangle (signed) = [ -7, -1, -8, -2, -9, -3, -10, -4, -11, -5, ...] DELTA A000035; triangle (unsigned) = [7, 1, 8, 2, 9, 3, 10, 4, ...] DELTA A000035; where DELTA is Deléham's operator defined in A084938.
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,7), for n=1,2,...;i=0...n. [From Milan Janjic, Dec 21 2008]
Showing 1-10 of 25 results. Next