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 17 results. Next

A001705 Generalized Stirling numbers: a(n) = n! * Sum_{k=0..n-1} (k+1)/(n-k).

Original entry on oeis.org

0, 1, 5, 26, 154, 1044, 8028, 69264, 663696, 6999840, 80627040, 1007441280, 13575738240, 196287356160, 3031488633600, 49811492505600, 867718162483200, 15974614352793600, 309920046408806400, 6320046028584960000, 135153868608460800000, 3024476051557847040000
Offset: 0

Views

Author

Keywords

Comments

a(n) is also the sum of the positions of the right-to-left minima in all permutations of [n]. Example: a(3)=26 because the positions of the right-to-left minima in the permutations 123,132,213,231,312 and 321 are 123, 13, 23, 3, 23 and 3, respectively and 1 + 2 + 3 + 1 + 3 + 2 + 3 + 3 + 2 + 3 + 3 = 26. - Emeric Deutsch, Sep 22 2008
The asymptotic expansion of the higher order exponential integral E(x,m=2,n=2) ~ exp(-x)/x^2*(1 - 5/x + 26/x^2 - 154/x^3 + 1044/x^4 - 8028/x^5 + 69264/x^6 - ...) leads to the sequence given above. See A163931 and A028421 for more information. - Johannes W. Meijer, Oct 20 2009
a(n) is the total number of cycles (excluding fixed points) in all permutations of [n+1]. - Olivier Gérard, Oct 23 2012; Dec 31 2012
A length n sequence is formed by randomly selecting (one-by-one) n real numbers in (0,1). a(n)/(n+1)! is the expected value of the sum of the new maximums in such a sequence. For example for n=3: If we select (in this order): 0.591996, 0.646474, 0.163659 we would add 0.591996 + 0.646474 which would be a bit above the average of a(3)/4! = 26/24. - Geoffrey Critzer, Oct 17 2013

Examples

			(1-x)^-2 * (-log(1-x)) = x + 5/2*x^2 + 13/3*x^3 + 77/12*x^4 + ...
Examples: a(6) = 6!*(1/6 + 2/5 + 3/4 + 4/3 + 5/2 + 6/1) = 8028; a(20) = 20!*(1/20 + 2/19 + 3/18 + 4/17 + 5/16 + ... + 16/5 + 17/4 + 18/3 + 19/2 + 20/1) = 135153868608460800000. - _Alexander Adamchuk_, Oct 09 2004
From _Olivier Gérard_, Dec 31 2012: (Start)
The cycle decomposition of all permutations of 4 elements gives the following list: {{{1},{2},{3},{4}}, {{1},{2},{3,4}}, {{1},{2,3},{4}}, {{1},{2,4,3}}, {{1},{2,3,4}}, {{1},{2,4},{3}}, {{1,2},{3},{4}}, {{1,2},{3,4}}, {{1,3,2},{4}},{{1,4,3,2}}, {{1,3,4,2}}, {{1,4,2},{3}}, {{1,2,3},{4}}, {{1,2,4,3}},{{1,3},{2},{4}}, {{1,4,3},{2}}, {{1,3},{2,4}}, {{1,4,2,3}}, {{1,2,3,4}}, {{1,2,4},{3}}, {{1,3,4},{2}}, {{1,4},{2},{3}}, {{1,3,2,4}}, {{1,4},{2,3}}}.
Deleting the fixed points gives the following 26 items: {{3,4}, {2,3}, {2,4,3}, {2,3,4}, {2,4}, {1,2}, {1,2}, {3,4}, {1,3,2}, {1,4,3,2}, {1,3,4,2}, {1,4,2}, {1,2,3}, {1,2,4,3}, {1,3}, {1,4,3}, {1,3}, {2,4}, {1,4,2,3}, {1,2,3,4}, {1,2,4}, {1,3,4}, {1,4}, {1,3,2,4}, {1,4}, {2,3}}. (End)
		

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A000254 (total number of cycles in permutations, including fixed points).
Cf. A002104 (number of different cycles in permutations, without fixed points).
Cf. A006231 (number of different cycles in permutations, including fixed points).
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.

Programs

  • Maple
    a := n-> add((n+1)!/k, k=2..n+1): seq(a(n), n=0..21); # Zerinvary Lajos, Jan 22 2008; edited Johannes W. Meijer, Nov 28 2012
    a := n -> ((n+1)!*(h(n+1)-1)): h := n-> harmonic(n): seq(a(n), n=0..21); # Gary Detlefs, Dec 18 2009; corrected by Johannes W. Meijer, Nov 28 2012
  • Mathematica
    Table[n!*Sum[Sum[1/k,{k,1,m}], {m,1,n}], {n,0,20}] (* Alexander Adamchuk, Apr 14 2006 *)
    a[n_] := (n + 1)! (EulerGamma - 1 + PolyGamma[n + 2]);
    Table[a[n], {n, 0, 21}] (* Peter Luschny, Feb 19 2022 *)
  • Maxima
    a(n):=n!*sum(((-1)^(k+1)*binomial(n+1,k+1))/k,k,1,n); /* Vladimir Kruchinin, Oct 10 2016 */
    
  • PARI
    for(n=0,25, print1(n!*sum(k=0,n-1,(k+1)/(n-k)), ", ")) \\ G. C. Greubel, Jan 20 2017
    
  • Python
    from math import factorial
    def A001705(n):
        f = factorial(n)
        return sum(f*(k+1)//(n-k) for k in range(n)) # Chai Wah Wu, Jun 23 2022

Formula

Partial sum of first n harmonic numbers multiplied by n!.
a(n) = n!*Sum_{m=1..n} Sum_{k=1..m} 1/k = n!*Sum_{m=1..n} H(m), where H(m) = Sum_{k=1..m} 1/k = A001008(m)/A002805(m) is m-th Harmonic number.
E.g.f.: - log (1 - x) / (1 - x)^2.
a(n) = (n+1)! * H(n) - n*n!, H(n) = Sum_{k=1..n} (1/k).
a(n) = A112486(n, 1).
a(n) = a(n-1)*(n+1) + n! = A000254(n+1) - A000142(n+1) = A067176(n+1, 1). - Henry Bottomley, Jan 09 2002
a(n) = Sum_{k=0..n-1} ((-1)^(n-1+k) * (k+1) * 2^k * Stirling1(n, k+1)). - Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004
With alternating signs: Ramanujan polynomials psi_2(n, x) evaluated at 0. - Ralf Stephan, Apr 16 2004
a(n) = Sum_{k=1..n} (k*StirlingCycle(n+1,k+1)). - David Callan, Sep 25 2006
a(n) = Sum_{k=n..n*(n+1)/2} k*A143947(n,k). - Emeric Deutsch, Sep 22 2008
For n >= 1, a(n) = Sum_{j=0..n-1} ((-1)^(n-j-1) * 2^j * (j+1) * Stirling1(n,j+1)). - Milan Janjic, Dec 14 2008
a(n) = (2*n+1)*a(n-1) - n^2*a(n-2). - Gary Detlefs, Nov 27 2009
a(n) = (n+1)!*(H(n+1) - 1) where H(n) is the n-th harmonic number. - Gary Detlefs, Dec 18 2009
a(n) = n!*Sum_{k=1..n} (-1)^(k+1)*binomial(n+1,k+1)/k. - Vladimir Kruchinin, Oct 10 2016
a(n) = (n+1)!*Sum_{k = 1..n} (-1)^(k+1)*binomial(n+1,k+1)*k/(k+1). - Peter Bala, Feb 15 2022
a(n) = Gamma(n + 2) * (Digamma(n + 2) + EulerGamma - 1). - Peter Luschny, Feb 19 2022
From Mélika Tebni, Jun 22 2022: (Start)
a(n) = -Sum_{k=0..n} k!*A066667(n, k+1).
a(n) = Sum_{k=0..n} k!*A132159(n, k+1). (End)
a(n) = n*(n + 1)!*hypergeom([1, 1, 1 - n], [2, 3], 1)/2. - Peter Luschny, Jun 22 2022

Extensions

More terms from Sascha Kurz, Mar 22 2002

A028421 Triangle read by rows: T(n, k) = (k+1)*A132393(n+1, k+1), for 0 <= k <= n.

Original entry on oeis.org

1, 1, 2, 2, 6, 3, 6, 22, 18, 4, 24, 100, 105, 40, 5, 120, 548, 675, 340, 75, 6, 720, 3528, 4872, 2940, 875, 126, 7, 5040, 26136, 39396, 27076, 9800, 1932, 196, 8, 40320, 219168, 354372, 269136, 112245, 27216, 3822, 288, 9
Offset: 0

Views

Author

Peter Wiggen (wiggen(AT)math.psu.edu)

Keywords

Comments

Previous name was: Number triangle f(n, k) from n-th differences of the sequence {1/m^2}{m >= 1}, for n >= 0; the n-th difference sequence is {(-1)^n*n!*P(n, m)/D(n, m)^2}{m >= 1} where P(n, x) is the row polynomial P(n, x) = Sum_{k=0..n} f(n,k)*x^k and D(n, x) = x*(x+1)*...*(x+n).
From Johannes W. Meijer, Oct 07 2009: (Start)
The higher-order exponential integrals E(x,m,n) are defined in A163931 and the general formula of the asymptotic expansion of E(x,m,n) can be found in A163932.
We used the general formula and the asymptotic expansion of E(x,m=1,n), see A130534, to determine that E(x,m=2,n) ~ (exp(-x)/x^2)*(1 - (1+2*n)/x + (2 + 6*n + 3*n^2)/x^2 - (6 + 22*n + 18*n^2 + 4*n^3)/x^3 + ...) which can be verified with the EA(x,2,n) formula, see A163932. The coefficients in the denominators of this expansion lead to the sequence given above.
The asymptotic expansion of E(x,m=2,n) leads for n from one to ten to known sequences, see the cross-references. With these sequences one can form the triangles A165674 (left hand columns) and A093905 (right hand columns).
(End)
For connections to an operator relation between log(x) and x^n(d/dx)^n, see A238363. - Tom Copeland, Feb 28 2014
From Wolfdieter Lang, Nov 25 2018: (Start)
The signed triangle t(n, k) := (-1)^{n-k}*f(n, k) gives (n+1)*N(-1;n,x) = Sum_{k=0..n} t(n, k)*x^k, where N(-1;n,x) are the Narumi polynomials with parameter a = -1 (see the Weisstein link).
The members of the n-th difference sequence of the sequence {1/m^2}_{m>=1} mentioned above satisfies the recurrence delta(n, m) = delta(n-1, m+1) - delta(n-1, m), for n >= 1, m >= 1, with input delta(0, m) = 1/m^2. The solution is delta(n, m) = (n+1)!*N(-1;n,-m)/risefac(m, n+1)^2, with Narumi polynomials N(-1;n,x) and the rising factorials risefac(x, n+1) = D(n, x) = x*(x+1)*...*(x+n).
The above mentioned row polynomials P satisfy P(n, x) = (-1)^n*(n + 1)*N(-1;n,-x), for n >= 0. The recurrence is P(n, x) = (-x^2*P(n-1, x+1) + (n+x)^2*P(n-1, x))/n, for n >= 1, and P(0, x) = 1. (End)
The triangle is the exponential Riordan square (cf. A321620) of -log(1-x) with an additional main diagonal of zeros. - Peter Luschny, Jan 03 2019

Examples

			The triangle T(n, k) begins:
n\k       0        1        2        3        4       5       6      7     8   9 10
------------------------------------------------------------------------------------
0:        1
1:        1        2
2:        2        6        3
3:        6       22       18        4
4:       24      100      105       40        5
5:      120      548      675      340       75       6
6:      720     3528     4872     2940      875     126       7
7:     5040    26136    39396    27076     9800    1932     196      8
8:    40320   219168   354372   269136   112245   27216    3822    288     9
9:   362880  2053152  3518100  2894720  1346625  379638   66150   6960   405  10
10: 3628800 21257280 38260728 33638000 17084650 5412330 1104411 145200 11880 550 11
... - _Wolfdieter Lang_, Nov 23 2018
		

Crossrefs

Row sums give A000254(n+1), n >= 0.
Cf. A132393 (unsigned Stirling1), A061356, A139526, A321620.
From Johannes W. Meijer, Oct 07 2009: (Start)
A000142, A052517, 3*A000399, 5*A000482 are the first four left hand columns; A000027, A002411 are the first two right hand columns.
The asymptotic expansion of E(x,m=2,n) leads to A000254 (n=1), A001705 (n=2), A001711 (n=3), A001716 (n=4), A001721 (n=5), A051524 (n=6), A051545 (n=7), A051560 (n=8), A051562 (n=9), A051564 (n=10), A093905 (triangle) and A165674 (triangle).
Cf. A163931 (E(x,m,n)), A130534 (m=1), A163932 (m=3), A163934 (m=4), A074246 (E(x,m=2,n+1)). (End)

Programs

  • Maple
    A028421 := proc(n,k) (-1)^(n+k)*(k+1)*Stirling1(n+1,k+1) end:
    seq(seq(A028421(n,k), k=0..n), n=0..8);
    # Johannes W. Meijer, Oct 07 2009, Revised Sep 09 2012
    egf := (1 - t)^(-x - 1)*(1 - x*log(1 - t)):
    ser := series(egf, t, 16): coefft := n -> expand(coeff(ser,t,n)):
    seq(seq(n!*coeff(coefft(n), x, k), k = 0..n), n = 0..8); # Peter Luschny, Jun 12 2022
  • Mathematica
    f[n_, k_] = (k + 1) StirlingS1[n + 1, k + 1] // Abs; Flatten[Table[f[n, k], {n, 0, 9}, {k, 0, n}]][[1 ;; 47]] (* Jean-François Alcover, Jun 01 2011, after formula *)
  • Sage
    # uses[riordan_square from A321620]
    riordan_square(-ln(1 - x), 10, True) # Peter Luschny, Jan 03 2019

Formula

E.g.f.: d/dt(-log(1-t)/(1-t)^x). - Vladeta Jovovic, Oct 12 2003
The e.g.f. with offset 1: y = x + (1 + 2*t)*x^2/2! + (2 + 6*t + 3*t^2)*x^3/3! + ... has series reversion with respect to x equal to y - (1 + 2*t)*y^2/2! + (1 + 3*t)^2*y^3/3! - (1 + 4*t)^3*y^4/4! + .... This is an e.g.f. for a signed version of A139526. - Peter Bala, Jul 18 2013
Recurrence: T(n, k) = 0 if n < k; if k = 0 then T(0, 0) = 1 and T(n, 0) = n * T(n-1, 0) for n >= 1, otherwise T(n, k) = n*T(n-1, k) + ((k+1)/k)*T(n-1, k-1). From the unsigned Stirling1 recurrence. - Wolfdieter Lang, Nov 25 2018

Extensions

Edited by Wolfdieter Lang, Nov 23 2018

A001711 Generalized Stirling numbers.

Original entry on oeis.org

1, 7, 47, 342, 2754, 24552, 241128, 2592720, 30334320, 383970240, 5231113920, 76349105280, 1188825724800, 19675048780800, 344937224217600, 6386713749964800, 124548748102195200, 2551797512248320000, 54804198761303040000, 1231237843834521600000
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=3) ~ exp(-x)/x^2*(1 - 7/x + 47/x^2 - 342/x^3 + 2754/x^4 - 24552/x^5 + 241128/x^6 - ...) leads to the sequence given above. See A163931 and A028421 for more information. - Johannes W. Meijer, Oct 20 2009
For n > 4, a(n) mod n = 0 for n composite, = n-3 for n prime. - Gary Detlefs, Jul 18 2011
From Petros Hadjicostas, Jun 11 2020: (Start)
For nonnegative integers n, m and complex numbers a, b (with b <> 0), the numbers R_n^m(a,b) were introduced by Mitrinovic (1961) using slightly different notation. They were further examined by Mitrinovic and Mitrinovic (1962).
These numbers are defined via the g.f. Product_{r=0..n-1} (x - (a + b*r)) = Sum_{m=0..n} R_n^m(a,b)*x^m for n >= 0.
As a result, R_n^m(a,b) = R_{n-1}^{m-1}(a,b) - (a + b*(n-1))*R_{n-1}^m(a,b) for n >= m >= 1 with R_1^0(a,b) = a, R_1^1(a,b) = 1, and R_n^m(a,b) = 0 for n < m. (Because an empty product is by definition 1, we may let R_0^0(a,b) = 1.)
With a = 0 and b = 1, we get the Stirling numbers of the first kind S1(n,m) = R_n^m(a=0, b=1) = A048994(n,m). (Array A008275 is the same as array A048994 but with no zero row and no zero column.)
We have R_n^m(a,b) = Sum_{k=0}^{n-m} (-1)^k * a^k * b^(n-m-k) * binomial(m+k, k) * S1(n, m+k) for n >= m >= 0.
For the current sequence, a(n) = R_{n+1}^1(a=-3, b=-1) for n >= 0. (End)

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

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.

Programs

  • Maple
    a := n-> add(1/2*((n+3)!/(k+3)), k=0..n): seq(a(n), n=0..19); # Zerinvary Lajos, Jan 22 2008
    a := n -> (n+1)!*hs2(n+1): hs2 := n-> add(hs(k), k=0..n): hs := n-> add(h(k), k=0..n): h := n-> add(1/k, k=1..n): seq(a(n), n=0..19); # Gary Detlefs, Jan 01 2011
  • Mathematica
    f[k_] := k + 2; 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 *)
    Table[(n + 3)!*Sum[1/(2*k + 4), {k, 1, n + 1}], {n,0,100}] (* G. C. Greubel, Jan 15 2017 *)
  • PARI
    for(n=0, 19, print1((n+1)! * sum(k=0, n, binomial(k + 2, 2) / (n + 1 - k)),", ")) \\ Indranil Ghosh, Mar 13 2017
    
  • PARI
    R(n,m,a,b) =  sum(k=0, n-m, (-1)^k*a^k*b^(n-m-k)*binomial(m+k,k)*stirling(n, m+k,1));
    aa(n) = R(n+1,1,-3,-1);
    for(n=0, 19, print1(aa(n), ",")) \\ Petros Hadjicostas, Jun 11 2020

Formula

E.g.f.: -log(1 - x)/(1 - x)^3 if offset 1. With offset 0: (d/dx)(-log(1 - x)/(1 - x)^3) = (1 - 3*log(1 - x))/(1 - x)^4.
a(n) = Sum_{k=0..n} ((-1)^(n+k)*(k+1)*3^k*Stirling1(n+1, k+1)). - Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004
a(n) = n!*Sum_{k=0..n-1} ((-1)^k*binomial(-3,k)/(n-k)). - Milan Janjic, Dec 14 2008
a(n) = ( A000254(n+3) - 3*A001710(n+3) )/2. - Gary Detlefs, May 24 2010
a(n) = ((n+3)!/4) * (2*h(n+3) - 3), where h(n) = Sum_{k=1..n} (1/k) is the n-th harmonic number. - Gary Detlefs, Aug 15 2010
a(n) = n!*[2]h(n), where [k]h(n) denotes the k-th successive summation of the harmonic numbers from 0 to n. With offset 1. - Gary Detlefs, Jan 04 2011
a(n) = (n+3)! * Sum_{k=1..n+1} (1/(2*k+4)). - Gary Detlefs, Sep 14 2011
a(n) = (n+1)! * Sum_{k=0..n} (binomial(k+2,2)/(n+1-k)). - Gary Detlefs, Dec 01 2011
a(n) = A001705(n+2) - A182541(n+4). - Anton Zakharov, Jul 02 2016
a(n) ~ n^(n+7/2) * exp(-n) * sqrt(Pi/2) * log(n) * (1 + (gamma - 3/2)/log(n)), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, Jul 12 2016
Conjectural D-finite with recurrence: a(n) + (-2*n-5)*a(n-1) + (n+2)^2*a(n-2)=0. - R. J. Mathar, Feb 16 2020
From Petros Hadjicostas, Jun 11 2020: (Start)
Since a(n) = R_{n+1}^1(a=-3, b=-1), it follows from Mitrinovic (1961) and Mitrinovic and Mitrinovic (1962) that:
a(n) = [x] Product_{r=0}^n (x + 3 + r) = (Product_{r=0}^n (3 + r)) * Sum_{s=0}^n 1/(3 + s).
a(n) = (n + 2)!/2 + (n + 3)*a(n-1) for n >= 1. [This can be used to prove R. J. Mathar's recurrence above.] (End)

Extensions

More terms from Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004
Maple programs corrected and edited by Johannes W. Meijer, Nov 28 2012

A001716 Generalized Stirling numbers.

Original entry on oeis.org

1, 9, 74, 638, 5944, 60216, 662640, 7893840, 101378880, 1397759040, 20606463360, 323626665600, 5395972377600, 95218662067200, 1773217155225600, 34758188233574400, 715437948072960000, 15429680577561600000, 347968129734973440000, 8190600438533990400000
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=4) ~ exp(-x)/x^2*(1 - 9/x + 74/x^2 - 638/x^3 + 5944/x^4 - 60216/x^5 + 662640/x^6 - ...) leads to the sequence given above. See A163931 and A028421 for more information. - Johannes W. Meijer, Oct 20 2009
From Petros Hadjicostas, Jun 23 2020: (Start)
For nonnegative integers n, m and complex numbers a, b (with b <> 0), the numbers R_n^m(a,b) were introduced by Mitrinovic (1961) and Mitrinovic and Mitrinovic (1962) using slightly different notation.
These numbers are defined via the g.f. Product_{r=0..n-1} (x - (a + b*r)) = Sum_{m=0..n} R_n^m(a,b)*x^m for n >= 0.
As a result, R_n^m(a,b) = R_{n-1}^{m-1}(a,b) - (a + b*(n-1))*R_{n-1}^m(a,b) for n >= m >= 1 with R_0^0(a,b) = 1, R_1^0(a,b) = a, R_1^1(a,b) = 1, and R_n^m(a,b) = 0 for n < m.
With a = 0 and b = 1, we get the Stirling numbers of the first kind S1(n,m) = R_n^m(a=0, b=1) = A048994(n,m) for n, m >= 0.
We have R_n^m(a,b) = Sum_{k=0}^{n-m} (-1)^k * a^k * b^(n-m-k) * binomial(m+k, k) * S1(n, m+k) for n >= m >= 0.
For the current sequence, a(n) = R_{n+1}^1(a=-4, b=-1) for n >= 0. (End)

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

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.

Programs

  • Mathematica
    f[k_] := k + 3; 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 *)
    Rest[CoefficientList[Series[(1-x)^(-4)*Log[1/(1-x)],{x,0,20}],x]*Range[0,20]!] (* Vaclav Kotesovec, Jan 19 2014 *)
  • PARI
    R(n, m, a, b) =  sum(k=0, n-m, (-1)^k*a^k*b^(n-m-k)*binomial(m+k, k)*stirling(n, m+k, 1));
    aa(n) = R(n+1, 1, -4, -1);
    for(n=0, 19, print1(aa(n), ", ")) \\ Petros Hadjicostas, Jun 23 2020

Formula

a(n) = Sum_{k=0..n} (-1)^(n+k) * (k+1) * 4^k * stirling1(n+1, k+1). - Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004
a(n-1) = n!*Sum_{k=0..n-1} (-1)^k*binomial(-4,k)/(n-k) for n >= 1. [Milan Janjic, Dec 14 2008] [Edited by Petros Hadjicostas, Jun 23 2020]
a(n)= n! * [3]h(n), where [k]h(n) denotes the k-th successive summation of the harmonic numbers from 0 to n (with offset 1). [Gary Detlefs, Jan 04 2011]
a(n) = (n+1)! * Sum_{k=0..n} (-1)^k*binomial(-4,k)/(n+1-k). [Gary Detlefs, Jul 16 2011]
a(n) = (n+4)! * Sum_{k=1..n+1} 1/(k+3)/6. [Gary Detlefs, Sep 14 2011]
E.g.f. (for offset 1): 1/(1-x)^4 * log(1/(1-x)). - Vaclav Kotesovec, Jan 19 2014
E.g.f.: (1 + 4*log(1/(1 - x)))/(1 - x)^5. - Ilya Gutkovskiy, Jan 23 2017
From Petros Hadjicostas, Jun 23 2020: (Start)
a(n) = [x] Product_{r=0..n} (x + 4 + r) = (Product_{r=0..n} (4 + r)) * Sum_{i=0..n} 1/(4 + i).
Since a(n) = R_{n+1}^1(a=-4, b=-1) and R_n^m(a,b) = R_{n-1}^{m-1}(a,b) - (a + b*(n-1))*R_{n-1}^m(a,b), we conclude that:
(i) a(n) = (n+3)!/6 + (n+4)*a(n-1) for n >= 1;
(ii) a(n) = (2*n+7)*a(n-1) - (n+3)^2*a(n-2) for n >= 2. (End)

Extensions

More terms from Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004

A001721 Generalized Stirling numbers.

Original entry on oeis.org

1, 11, 107, 1066, 11274, 127860, 1557660, 20355120, 284574960, 4243508640, 67285058400, 1131047366400, 20099588140800, 376612896038400, 7422410595801600, 153516757766400000, 3325222830101760000, 75283691519393280000, 1778358268603445760000
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=5) ~ exp(-x)/x^2*(1 - 11/x + 107/x^2 - 1066/x^3 + 11274/x^4 - 127860/x^5 + 1557660/x^6 - ... ) leads to the sequence given above. See A163931 and A028421 for more information. - Johannes W. Meijer, Oct 20 2009

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

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.

Programs

  • Mathematica
    f[k_] := k + 4; 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) = Sum_{k=0..n} (-1)^(n+k)*binomial(k+1, 1)*5^k*Stirling1(n+1, k+1). - Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004
a(n) = n!*Sum_{k=0..n-1} (-1)^k*binomial(-5,k)/(n-k). - Milan Janjic, Dec 14 2008
a(n) = n!*[4]h(n), where [k]h(n) denotes the k-th successive summation of the harmonic numbers from 0 to n. With offset 1. - Gary Detlefs, Jan 04 2011
E.g.f.: (1 + 5*log(1/(1-x)))/(1 - x)^6. - Ilya Gutkovskiy, Jan 23 2017

Extensions

More terms from Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004

A051545 Second unsigned column of triangle A051339.

Original entry on oeis.org

0, 1, 15, 191, 2414, 31594, 434568, 6314664, 97053936, 1576890000, 27046454400, 488849155200, 9293295110400, 185464792800000, 3878247384345600, 84822225638169600, 1937048605944883200, 46113230058645657600
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=7) ~ exp(-x)/x^2*(1 - 15/x + 191/x^2 - 2414/x^3 + 31594/x^4 - 434568/x^5 + 6314664/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 A051339.

Crossrefs

Cf. A001730 (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..(this sequence), k=7..A051560, k=8..A051562, k=9..A051564. - Gary Detlefs, Jan 04 2011

Programs

  • Mathematica
    f[k_] := k + 6; 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) = A051339(n, 2)*(-1)^(n-1).
E.g.f.: -log(1-x)/(1-x)^7.
a(n) = n!*Sum_{k=0,..,n-1}((-1)^k*binomial(-7,k)/(n-k)), for n>=1. - Milan Janjic, Dec 14 2008
a(n) = n!*[6]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

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

A051562 Second unsigned column of triangle A051380.

Original entry on oeis.org

0, 1, 19, 299, 4578, 71394, 1153956, 19471500, 343976400, 6366517200, 123418922400, 2503748556000, 53091962697600, 1175271048201600, 27123099523027200, 651708291206649600, 16282170039031142400
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=9) ~ exp(-x)/x^2*(1 - 19/x + 299/x^2 - 4578/x^3 + 71394/x^4 - 1153956/x^5 + 19471500/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 A051380.

Crossrefs

Cf. A049389 (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 + 8; 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) = A051380(n, 2)*(-1)^(n-1).
E.g.f.: -log(1-x)/(1-x)^9.
a(n) = n!*Sum_{k=0..n-1} ((-1)^k*binomial(-9,k)/(n-k)), for n>=1. - Milan Janjic, Dec 14 2008
a(n) = n!*[8]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

A051564 Second unsigned column of triangle A051523.

Original entry on oeis.org

0, 1, 21, 362, 6026, 101524, 1763100, 31813200, 598482000, 11752855200, 240947474400, 5154170774400, 114942011990400, 2669517204076800, 64496340380102400, 1619153396908185600, 42188624389562112000
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=2,n=10) ~ exp(-x)/x^2*(1 - 21/x + 362/x^2 - 6026/x^3 + 101524/x^4 - 1763100/x^5 + 31813200/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 A051523.

Crossrefs

Cf. A049398 (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[n_] := n!*Sum[(-1)^k*Binomial[-10, k]/(n - k), {k, 0, n - 1}]; Array[f, 17, 0]
    Range[0, 16]! CoefficientList[ Series[-Log[(1 - x)]/(1 - x)^10, {x, 0, 16}], x]
    (* Or, using elementary symmetric functions: *)
    f[k_] := k + 9; 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) = A051523(n, 2)*(-1)^(n-1).
E.g.f.: -log(1-x)/(1-x)^10.
a(n) = n!*Sum_{k=0..n-1}((-1)^k*binomial(-10,k)/(n-k)), for n>=1. - Milan Janjic, Dec 14 2008
a(n) = n!*[9]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

A165674 Triangle generated by the asymptotic expansions of the E(x,m=2,n).

Original entry on oeis.org

1, 3, 1, 11, 5, 1, 50, 26, 7, 1, 274, 154, 47, 9, 1, 1764, 1044, 342, 74, 11, 1, 13068, 8028, 2754, 638, 107, 13, 1, 109584, 69264, 24552, 5944, 1066, 146, 15, 1, 1026576, 663696, 241128, 60216, 11274, 1650, 191, 17, 1
Offset: 1

Views

Author

Johannes W. Meijer, Oct 05 2009

Keywords

Comments

The higher order exponential integrals E(x,m,n) are defined in A163931. The asymptotic expansion of the E(x,m=2,n) ~ (exp(-x)/x^2)*(1 - (1+2*n)/x + (2+6*n+3*n^2)/x^2 - (6+22*n+18*n^2+ 4*n^3)/x^3 + ... ) is discussed in A028421. The formula for the asymptotic expansion leads for n = 1, 2, 3, .., to the left hand columns of the triangle given above.
The recurrence relations of the right hand columns of this triangle lead to Pascal's triangle A007318, their a(n) formulas lead to Wiggen's triangle A028421 and their o.g.f.s lead to Wood's polynomials A126671; cf. A080663, A165676, A165677, A165678 and A165679.
The row sums of this triangle lead to A093344. Surprisingly the e.g.f. of the row sums Egf(x) = (exp(1)*Ei(1,1-x) - exp(1)*Ei(1,1))/(1-x) leads to the exponential integrals in view of the fact that E(x,m=1,n=1) = Ei(n=1,x). We point out that exp(1)*Ei(1,1) = A073003.
The Maple programs generate the coefficients of the triangle given above. The first one makes use of a relation between the triangle coefficients, see the formulas, and the second one makes use of the asymptotic expansions of the E(x,m=2,n).
Amarnath Murthy discovered triangle A093905 which is the reversal of our triangle.
A165675 is an extended version of this triangle. Its reversal is A105954.
Triangle A094587 is generated by the asymptotic expansions of E(x,m=1,n).

Crossrefs

A093905 is the reversal of this triangle.
A000254, A001705, A001711, A001716, A001721, A051524, A051545, A051560, A051562, A051564 are the first ten left hand columns.
A080663, n>=2, is the third right hand column.
A165676, A165677, A165678 and A165679 are the next right hand columns, A093344 gives the row sums.
A073003 is Gompertz's constant.
A094587 is generated by the asymptotic expansions of E(x, m=1, n).
Cf. A165675, A105954 (Quet) and A067176 (Bottomley).
Cf. A007318 (Pascal), A028421 (Wiggen), A126671 (Wood).

Programs

  • Maple
    nmax:=9; for n from 1 to nmax do a(n, n) := 1 od: for n from 2 to nmax do a(n, 1) := n*a(n-1, 1) + (n-1)! od: for n from 3 to nmax do for m from 2 to n-1 do a(n, m) := (n-m+1)*a(n-1, m) + a(n-1, m-1) od: od: seq(seq(a(n, m), m = 1..n), n = 1..nmax);
    # End program 1
    nmax := nmax+1: m:=2; with(combinat): EA := proc(x, m, n) local E, i; E:=0: for i from m-1 to nmax+2 do E := E + sum((-1)^(m+k1+1) * binomial(k1, m-1) * n^(k1-m+1) * stirling1(i, k1), k1=m-1..i) / x^(i-m+1) od: E:= exp(-x)/x^(m) * E: return(E); end: for n1 from 1 to nmax do f(n1-1) := simplify(exp(x) * x^(nmax+3) * EA(x, m, n1)); for m1 from 0 to nmax+2 do b(n1-1, m1) := coeff(f(n1-1), x, nmax+2-m1) od: od: for n1 from 0 to nmax-1 do for m1 from 0 to n1-m+1 do a(n1-m+2, m1+1) := abs(b(m1, n1-m1)) od: od: seq(seq(a(n, m), m = 1..n),n = 1..nmax-1);
    # End program 2
    # Maple programs revised by Johannes W. Meijer, Sep 22 2012

Formula

a(n,m) = (n-m+1)*a(n-1,m) + a(n-1,m-1), for 2 <= m <= n-1, with a(n,n) = 1 and a(n,1) = n*a(n-1,1) + (n-1)!.
a(n,m) = product(i, i= m..n)*sum(1/i, i = m..n).
Showing 1-10 of 17 results. Next