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

A001710 Order of alternating group A_n, or number of even permutations of n letters.

Original entry on oeis.org

1, 1, 1, 3, 12, 60, 360, 2520, 20160, 181440, 1814400, 19958400, 239500800, 3113510400, 43589145600, 653837184000, 10461394944000, 177843714048000, 3201186852864000, 60822550204416000, 1216451004088320000, 25545471085854720000, 562000363888803840000
Offset: 0

Views

Author

Keywords

Comments

For n >= 3, a(n-1) is also the number of ways that a 3-cycle in the symmetric group S_n can be written as a product of 2 long cycles (of length n). - Ahmed Fares (ahmedfares(AT)my-deja.com), Aug 14 2001
a(n) is the number of Hamiltonian circuit masks for an n X n adjacency matrix of an undirected graph. - Chad Brewbaker, Jan 31 2003
a(n-1) is the number of necklaces one can make with n distinct beads: n! bead permutations, divide by two to represent flipping the necklace over, divide by n to represent rotating the necklace. Related to Stirling numbers of the first kind, Stirling cycles. - Chad Brewbaker, Jan 31 2003
Number of increasing runs in all permutations of [n-1] (n>=2). Example: a(4)=12 because we have 12 increasing runs in all the permutations of [3] (shown in parentheses): (123), (13)(2), (3)(12), (2)(13), (23)(1), (3)(2)(1). - Emeric Deutsch, Aug 28 2004
Minimum permanent over all n X n (0,1)-matrices with exactly n/2 zeros. - Simone Severini, Oct 15 2004
The number of permutations of 1..n that have 2 following 1 for n >= 1 is 0, 1, 3, 12, 60, 360, 2520, 20160, ... . - Jon Perry, Sep 20 2008
Starting (1, 3, 12, 60, ...) = binomial transform of A000153: (1, 2, 7, 32, 181, ...). - Gary W. Adamson, Dec 25 2008
First column of A092582. - Mats Granvik, Feb 08 2009
The asymptotic expansion of the higher order exponential integral E(x,m=1,n=3) ~ exp(-x)/x*(1 - 3/x + 12/x^2 - 60/x^3 + 360/x^4 - 2520/x^5 + 20160/x^6 - 81440/x^7 + ...) leads to the sequence given above. See A163931 and A130534 for more information. - Johannes W. Meijer, Oct 20 2009
For n>1: a(n) = A173333(n,2). - Reinhard Zumkeller, Feb 19 2010
Starting (1, 3, 12, 60, ...) = eigensequence of triangle A002260, (a triangle with k terms of (1,2,3,...) in each row given k=1,2,3,...). Example: a(6) = 360, generated from (1, 2, 3, 4, 5) dot (1, 1, 3, 12, 60) = (1 + 2 + 9 + 48 + 300). - Gary W. Adamson, Aug 02 2010
For n>=2: a(n) is the number of connected 2-regular labeled graphs on (n+1) nodes (Cf. A001205). - Geoffrey Critzer, Feb 16 2011.
The Fi1 and Fi2 triangle sums of A094638 are given by the terms of this sequence (n>=1). For the definition of these triangle sums see A180662. - Johannes W. Meijer, Apr 20 2011
Also [1, 1] together with the row sums of triangle A162608. - Omar E. Pol, Mar 09 2012
a(n-1) is, for n>=2, also the number of necklaces with n beads (only C_n symmetry, no turnover) with n-1 distinct colors and signature c[.]^2 c[.]^(n-2). This means that two beads have the same color, and for n=2 the second factor is omitted. Say, cyclic(c[1]c[1]c[2]c[3]..c[n-1]), in short 1123...(n-1), taken cyclically. E.g., n=2: 11, n=3: 112, n=4: 1123, 1132, 1213, n=5: 11234, 11243, 11324, 11342, 11423, 11432, 12134, 12143, 13124, 13142, 14123, 14132. See the next-to-last entry in line n>=2 of the representative necklace partition array A212359. - Wolfdieter Lang, Jun 26 2012
For m >= 3, a(m-1) is the number of distinct Hamiltonian circuits in a complete simple graph with m vertices. See also A001286. - Stanislav Sykora, May 10 2014
In factorial base (A007623) these numbers have a simple pattern: 1, 1, 1, 11, 200, 2200, 30000, 330000, 4000000, 44000000, 500000000, 5500000000, 60000000000, 660000000000, 7000000000000, 77000000000000, 800000000000000, 8800000000000000, 90000000000000000, 990000000000000000, etc. See also the formula based on this observation, given below. - Antti Karttunen, Dec 19 2015
Also (by definition) the independence number of the n-transposition graph. - Eric W. Weisstein, May 21 2017
Number of permutations of n letters containing an even number of even cycles. - Michael Somos, Jul 11 2018
Equivalent to Brewbaker's and Sykora's comments, a(n - 1) is the number of undirected cycles covering n labeled vertices, hence the logarithmic transform of A002135. - Gus Wiseman, Oct 20 2018
For n >= 2 and a set of n distinct leaf labels, a(n) is the number of binary, rooted, leaf-labeled tree topologies that have a caterpillar shape (column k=1 of A306364). - Noah A Rosenberg, Feb 11 2019
Also the clique covering number of the n-Bruhat graph. - Eric W. Weisstein, Apr 19 2019
a(n) is the number of lattices of the form [s,w] in the weak order on S_n, for a fixed simple reflection s. - Bridget Tenner, Jan 16 2020
For n > 3, a(n) = p_1^e_1*...*p_m^e_m, where p_1 = 2 and e_m = 1. There exists p_1^x where x <= e_1 such that p_1^x*p_m^e_m is a primitive Zumkeller number (A180332) and p_1^e_1*p_m^e_m is a Zumkeller number (A083207). Therefore, for n > 3, a(n) = p_1^e_1*p_m^e_m*r, where r is relatively prime to p_1*p_m, is also a Zumkeller number. - Ivan N. Ianakiev, Mar 11 2020
For n>1, a(n) is the number of permutations of [n] that have 1 and 2 as cycle-mates, that is, 1 and 2 are contained in the same cycle of a cyclic representation of permutations of [n]. For example, a(4) counts the 12 permutations with 1 and 2 as cycle-mates, namely, (1 2 3 4), (1 2 4 3), (1 3 2 4), (1 3 4 2), (1 4 2 3), (1 4 3 2), (1 2 3) (4), (1 3 2) (4), (1 2 4 )(3), (1 4 2)(3), (1 2)(3 4), and (1 2)(3)(4). Since a(n+2)=row sums of A162608, our result readily follows. - Dennis P. Walsh, May 28 2020

Examples

			G.f. = 1 + x + x^2 + 3*x^3 + 12*x^4 + 60*x^5 + 360*x^6 + 2520*x^7 + ...
		

References

  • J. Riordan, An Introduction to Combinatorial Analysis, Wiley, 1958, pp. 87-8, 20. (a), c_n^e(t=1).
  • 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

a(n+1)= A046089(n, 1), n >= 1 (first column of triangle), A161739 (q(n) sequence).
Bisections are A002674 and A085990 (essentially).
Row 3 of A265609 (essentially).
Row sums of A307429.

Programs

  • Magma
    [1] cat [Order(AlternatingGroup(n)): n in [1..20]]; // Arkadiusz Wesolowski, May 17 2014
    
  • Maple
    seq(mul(k, k=3..n), n=0..20); # Zerinvary Lajos, Sep 14 2007
  • Mathematica
    a[n_]:= If[n > 2, n!/2, 1]; Array[a, 21, 0]
    a[n_]:= If[n<3, 1, n*a[n-1]]; Array[a, 21, 0]; (* Robert G. Wilson v, Apr 16 2011 *)
    a[ n_]:= If[n<0, 0, n! SeriesCoefficient[(2-x^2)/(2-2x), {x, 0, n}]]; (* Michael Somos, May 22 2014 *)
    a[ n_]:= If[n<0, 0, n! SeriesCoefficient[1 +Sinh[-Log[1-x]], {x, 0, n}]]; (* Michael Somos, May 22 2014 *)
    Numerator[Range[0, 20]!/2] (* Eric W. Weisstein, May 21 2017 *)
    Table[GroupOrder[AlternatingGroup[n]], {n, 0, 20}] (* Eric W. Weisstein, May 21 2017 *)
  • PARI
    {a(n) = if( n<2, n>=0, n!/2)};
    
  • PARI
    a(n)=polcoeff(1+x*sum(m=0,n,m^m*x^m/(1+m*x+x*O(x^n))^m),n) \\ Paul D. Hanna
    
  • PARI
    A001710=n->n!\2+(n<2) \\ M. F. Hasler, Dec 01 2013
    
  • Python
    from math import factorial
    def A001710(n): return factorial(n)>>1 if n > 1 else 1 # Chai Wah Wu, Feb 14 2023
    
  • SageMath
    def A001710(n): return (factorial(n) +int(n<2))//2
    [A001710(n) for n in range(31)] # G. C. Greubel, Sep 28 2024
  • Scheme
    ;; Using memoization-macro definec for which an implementation can be found in http://oeis.org/wiki/Memoization
    (definec (A001710 n) (cond ((<= n 2) 1) (else (* n (A001710 (- n 1))))))
    ;; Antti Karttunen, Dec 19 2015
    

Formula

a(n) = numerator(n!/2) and A141044(n) = denominator(n!/2).
D-finite with recurrence: a(0) = a(1) = a(2) = 1; a(n) = n*a(n-1) for n>2. - Chad Brewbaker, Jan 31 2003 [Corrected by N. J. A. Sloane, Jul 25 2008]
a(0) = 0, a(1) = 1; a(n) = Sum_{k=1..n-1} k*a(k). - Amarnath Murthy, Oct 29 2002
Stirling transform of a(n+1) = [1, 3, 12, 160, ...] is A083410(n) = [1, 4, 22, 154, ...]. - Michael Somos, Mar 04 2004
First Eulerian transform of A000027. See A000142 for definition of FET. - Ross La Haye, Feb 14 2005
From Paul Barry, Apr 18 2005: (Start)
a(n) = 0^n + Sum_{k=0..n} (-1)^(n-k-1)*T(n-1, k)*cos(Pi*(n-k-1)/2)^2.
T(n,k) = abs(A008276(n, k)). (End)
E.g.f.: (2 - x^2)/(2 - 2*x).
E.g.f. of a(n+2), n>=0, is 1/(1-x)^3.
E.g.f.: 1 + sinh(log(1/(1-x))). - Geoffrey Critzer, Dec 12 2010
a(n+1) = (-1)^n * A136656(n,1), n>=1.
a(n) = n!/2 for n>=2 (proof from the e.g.f). - Wolfdieter Lang, Apr 30 2010
a(n) = (n-2)! * t(n-1), n>1, where t(n) is the n-th triangular number (A000217). - Gary Detlefs, May 21 2010
a(n) = ( A000254(n) - 2* A001711(n-3) )/3, n>2. - Gary Detlefs, May 24 2010
O.g.f.: 1 + x*Sum_{n>=0} n^n*x^n/(1 + n*x)^n. - Paul D. Hanna, Sep 13 2011
a(n) = if n < 2 then 1, otherwise Pochhammer(n,n)/binomial(2*n,n). - Peter Luschny, Nov 07 2011
a(n) = Sum_{k=0..floor(n/2)} s(n,n-2*k) where s(n,k) are Stirling number of the first kind, A048994. - Mircea Merca, Apr 07 2012
a(n-1), n>=3, is M_1([2,1^(n-2)])/n = (n-1)!/2, with the M_1 multinomial numbers for the given n-1 part partition of n. See the second to last entry in line n>=3 of A036038, and the above necklace comment by W. Lang. - Wolfdieter Lang, Jun 26 2012
G.f.: A(x) = 1 + x + x^2/(G(0)-2*x) where G(k) = 1 - (k+1)*x/(1 - x*(k+3)/G(k+1)); (continued fraction). - Sergei N. Gladkovskii, Dec 26 2012.
G.f.: 1 + x + (Q(0)-1)*x^2/(2*(sqrt(x)+x)), where Q(k) = 1 + (k+2)*sqrt(x)/(1 - sqrt(x)/(sqrt(x) + 1/Q(k+1))); (continued fraction). - Sergei N. Gladkovskii, May 15 2013
G.f.: 1 + x + (x*Q(x)-x^2)/(2*(sqrt(x)+x)), where Q(x) = Sum_{n>=0} (n+1)!*x^n*sqrt(x)*(sqrt(x) + x*(n+2)). - Sergei N. Gladkovskii, May 15 2013
G.f.: 1 + x/2 + (Q(0)-1)*x/(2*(sqrt(x)+x)), where Q(k) = 1 + (k+1)*sqrt(x)/(1 - sqrt(x)/(sqrt(x) + 1/Q(k+1))); (continued fraction). - Sergei N. Gladkovskii, May 15 2013
G.f.: 1 + x + x^2*G(0)/2, where G(k) = 1 + 1/(1 - x/(x + 1/(k+3)/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, Jun 01 2013
G.f.: 1+x + x^2*W(0), where W(k) = 1 - x*(k+3)/( x*(k+3) - 1/(1 - x*(k+1)/( x*(k+1) - 1/W(k+1) ))); (continued fraction). - Sergei N. Gladkovskii, Aug 26 2013
From Antti Karttunen, Dec 19 2015: (Start)
a(0)=a(1)=1; after which, for even n: a(n) = (n/2) * (n-1)!, and for odd n: a(n) = (n-1)/2 * ((n-1)! + (n-2)!). [The formula was empirically found after viewing these numbers in factorial base, A007623, and is easily proved by considering formulas from Lang (Apr 30 2010) and Detlefs (May 21 2010) shown above.]
For n >= 1, a(2*n+1) = a(2*n) + A153880(a(2*n)). [Follows from above.] (End)
Inverse Stirling transform of a(n) is (-1)^(n-1)*A009566(n). - Anton Zakharov, Aug 07 2016
a(n) ~ sqrt(Pi/2)*n^(n+1/2)/exp(n). - Ilya Gutkovskiy, Aug 07 2016
a(n) = A006595(n-1)*n/A000124(n) for n>=2. - Anton Zakharov, Aug 23 2016
a(n) = A001563(n-1) - A001286(n-1) for n>=2. - Anton Zakharov, Sep 23 2016
From Peter Bala, May 24 2017: (Start)
The o.g.f. A(x) satisfies the Riccati equation x^2*A'(x) + (x - 1)*A(x) + 1 - x^2 = 0.
G.f.: A(x) = 1 + x + x^2/(1 - 3*x/(1 - x/(1 - 4*x/(1 - 2*x/(1 - 5*x/(1 - 3*x/(1 - ... - (n + 2)*x/(1 - n*x/(1 - ... ))))))))) (apply Stokes, 1982).
A(x) = 1 + x + x^2/(1 - 2*x - x/(1 - 3*x/(1 - 2*x/(1 - 4*x/(1 - 3*x/(1 - 5*x/(1 - ... - n*x/(1 - (n+2)*x/(1 - ... ))))))))). (End)
H(x) = (1 - (1 + x)^(-2)) / 2 = x - 3*x^2/2! + 12*x^3/3! - ..., an e.g.f. for the signed sequence here (n!/2!), ignoring the first two terms, is the compositional inverse of G(x) = (1 - 2*x)^(-1/2) - 1 = x + 3*x^2/2! + 15*x^3/3! + ..., an e.g.f. for A001147. Cf. A094638. H(x) is the e.g.f. for the sequence (-1)^m * m!/2 for m = 2,3,4,... . Cf. A001715 for n!/3! and A001720 for n!/4!. Cf. columns of A094587, A173333, and A213936 and rows of A138533. - Tom Copeland, Dec 27 2019
From Amiram Eldar, Jan 08 2023: (Start)
Sum_{n>=0} 1/a(n) = 2*(e-1).
Sum_{n>=0} (-1)^n/a(n) = 2/e. (End)

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Aug 20 2001
Further terms from Simone Severini, Oct 15 2004

A094638 Triangle read by rows: T(n,k) = |s(n,n+1-k)|, where s(n,k) are the signed Stirling numbers of the first kind A008276 (1 <= k <= n; in other words, the unsigned Stirling numbers of the first kind in reverse order).

Original entry on oeis.org

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

Views

Author

André F. Labossière, May 17 2004

Keywords

Comments

Triangle of coefficients of the polynomial (x+1)(x+2)...(x+n), expanded in decreasing powers of x. - T. D. Noe, Feb 22 2008
Row n also gives the number of permutation of 1..n with complexity 0,1,...,n-1. See the comments in A008275. - N. J. A. Sloane, Feb 08 2019
T(n,k) is the number of deco polyominoes of height n and having k columns. A deco polyomino is a directed column-convex polyomino in which the height, measured along the diagonal, is attained only in the last column. Example: T(2,1)=1 and T(2,2)=1 because the deco polyominoes of height 2 are the vertical and horizontal dominoes, having, respectively, 1 and 2 columns. - Emeric Deutsch, Aug 14 2006
Sum_{k=1..n} k*T(n,k) = A121586. - Emeric Deutsch, Aug 14 2006
Let the triangle U(n,k), 0 <= k <= n, read by rows, be given by [1,0,1,0,1,0,1,0,1,0,1,...] DELTA [1,1,2,2,3,3,4,4,5,5,6,...] where DELTA is the operator defined in A084938; then T(n,k) = U(n-1,k-1). - Philippe Deléham, Jan 06 2007
From Tom Copeland, Dec 15 2007: (Start)
Consider c(t) = column vector(1, t, t^2, t^3, t^4, t^5, ...).
Starting at 1 and sampling every integer to the right, we obtain (1,2,3,4,5,...). And T * c(1) = (1, 1*2, 1*2*3, 1*2*3*4,...), giving n! for n > 0. Call this sequence the right factorial (n+)!.
Starting at 1 and sampling every integer to the left, we obtain (1,0,-1,-2,-3,-4,-5,...). And T * c(-1) = (1, 1*0, 1*0*-1, 1*0*-1*-2,...) = (1, 0, 0, 0, ...), the left factorial (n-)!.
Sampling every other integer to the right, we obtain (1,3,5,7,9,...). T * c(2) = (1, 1*3, 1*3*5, ...) = (1,3,15,105,945,...), giving A001147 for n > 0, the right double factorial, (n+)!!.
Sampling every other integer to the left, we obtain (1,-1,-3,-5,-7,...). T * c(-2) = (1, 1*-1, 1*-1*-3, 1*-1*-3*-5,...) = (1,-1,3,-15,105,-945,...) = signed A001147, the left double factorial, (n-)!!.
Sampling every 3 steps to the right, we obtain (1,4,7,10,...). T * c(3) = (1, 1*4, 1*4*7,...) = (1,4,28,280,...), giving A007559 for n > 0, the right triple factorial, (n+)!!!.
Sampling every 3 steps to the left, we obtain (1,-2,-5,-8,-11,...), giving T * c(-3) = (1, 1*-2, 1*-2*-5, 1*-2*-5*-8,...) = (1,-2,10,-80,880,...) = signed A008544, the left triple factorial, (n-)!!!.
The list partition transform A133314 of [1,T * c(t)] gives [1,T * c(-t)] with all odd terms negated; e.g., LPT[1,T*c(2)] = (1,-1,-1,-3,-15,-105,-945,...) = (1,-A001147). And e.g.f. for [1,T * c(t)] = (1-xt)^(-1/t).
The above results hold for t any real or complex number. (End)
Let R_n(x) be the real and I_n(x) the imaginary part of Product_{k=0..n} (x + I*k). Then, for n=1,2,..., we have R_n(x) = Sum_{k=0..floor((n+1)/2)}(-1)^k*Stirling1(n+1,n+1-2*k)*x^(n+1-2*k), I_n(x) = Sum_{k=0..floor(n/2)}(-1)^(k+1)*Stirling1(n+1,n-2*k)*x^(n-2*k). - Milan Janjic, May 11 2008
T(n,k) is also the number of permutations of n with "reflection length" k (i.e., obtained from 12..n by k not necessarily adjacent transpositions). For example, when n=3, 132, 213, 321 are obtained by one transposition, while 231 and 312 require two transpositions. - Kyle Petersen, Oct 15 2008
From Tom Copeland, Nov 02 2010: (Start)
[x^(y+1) D]^n = x^(n*y) [T(n,1)(xD)^n + T(n,2)y (xD)^(n-1) + ... + T(n,n)y^(n-1)(xD)], with D the derivative w.r.t. x.
E.g., [x^(y+1) D]^4 = x^(4*y) [(xD)^4 + 6 y(xD)^3 + 11 y^2(xD)^2 + 6 y^3(xD)].
(xD)^m can be further expanded in terms of the Stirling numbers of the second kind and operators of the form x^j D^j. (End)
With offset 0, 0 <= k <= n: T(n,k) is the sum of products of each size k subset of {1,2,...,n}. For example, T(3,2) = 11 because there are three subsets of size two: {1,2},{1,3},{2,3}. 1*2 + 1*3 + 2*3 = 11. - Geoffrey Critzer, Feb 04 2011
The Kn11, Fi1 and Fi2 triangle sums link this triangle with two sequences, see the crossrefs. For the definitions of these triangle sums see A180662. The mirror image of this triangle is A130534. - Johannes W. Meijer, Apr 20 2011
T(n+1,k+1) is the elementary symmetric function a_k(1,2,...,n), n >= 0, k >= 0, (a_0(0):=1). See the T. D. Noe and Geoffrey Critzer comments given above. For a proof see the Stanley reference, p. 19, Second Proof. - Wolfdieter Lang, Oct 24 2011
Let g(t) = 1/d(log(P(j+1,-t)))/dt (see Tom Copeland's 2007 formulas). The Mellin transform (t to s) of t*Dirac[g(t)] gives Sum_{n=1..j} n^(-s), which as j tends to infinity gives the Riemann zeta function for Re(s) > 1. Dirac(x) is the Dirac delta function. The complex contour integral along a circle of radius 1 centered at z=1 of z^s/g(z) gives the same result. - Tom Copeland, Dec 02 2011
Rows are coefficients of the polynomial expansions of the Pochhammer symbol, or rising factorial, Pch(n,x) = (x+n-1)!/(x-1)!. Expansion of Pch(n,xD) = Pch(n,Bell(.,:xD:)) in a polynomial with terms :xD:^k=x^k*D^k gives the Lah numbers A008297. Bell(n,x) are the unsigned Bell polynomials or Stirling polynomials of the second kind A008277. - Tom Copeland, Mar 01 2014
From Tom Copeland, Dec 09 2016: (Start)
The Betti numbers, or dimension, of the pure braid group cohomology. See pp. 12 and 13 of the Hyde and Lagarias link.
Row polynomials and their products appear in presentation of the Jack symmetric functions of R. Stanley. See Copeland link on the Witt differential generator.
(End)
From Tom Copeland, Dec 16 2019: (Start)
The e.g.f. given by Copeland in the formula section appears in a combinatorial Dyson-Schwinger equation of quantum field theory in Yeats in Thm. 2 on p. 62 related to a Hopf algebra of rooted trees. See also the Green function on p. 70.
Per comments above, this array contains the coefficients in the expansion in polynomials of the Euler, or state number, operator xD of the rising factorials Pch(n,xD) = (xD+n-1)!/(xD-1)! = x [:Dx:^n/n!]x^{-1} = L_n^{-1}(-:xD:), where :Dx:^n = D^n x^n and :xD:^n = x^n D^n. The polynomials L_n^{-1} are the Laguerre polynomials of order -1, i.e., normalized Lah polynomials.
The Witt differential operators L_n = x^(n+1) D and the row e.g.f.s appear in Hopf and dual Hopf algebra relations presented by Foissy. The Witt operators satisfy L_n L_k - L_k L_n = (k-n) L_(n+k), as for the dual Hopf algebra. (End)

Examples

			Triangle starts:
  1;
  1,  1;
  1,  3,  2;
  1,  6, 11,  6;
  1, 10, 35, 50, 24;
...
		

References

  • M. Miyata and J. W. Son, On the complexity of permutations and the metric space of bijections, Tensor, 60 (1998), No. 1, 109-116 (MR1768839).
  • Jerome Spanier and Keith B. Oldham, "Atlas of Functions", Hemisphere Publishing Corp., 1987, chapter 18, equations 18:4:2 - 18:4:8 at page 151.
  • R. P. Stanley, Enumerative Combinatorics, Vol. 1, Cambridge University Press, 1997.

Crossrefs

A008276 gives the (signed) Stirling numbers of the first kind.
Cf. A000108, A014137, A001246, A033536, A000984, A094639, A006134, A082894, A002897, A079727, A000217 (2nd column), A000914 (3rd column), A001303 (4th column), A000915 (5th column), A053567 (6th column), A000142 (row sums).
Triangle sums (see the comments): A124380 (Kn11), A001710 (Fi1, Fi2). - Johannes W. Meijer, Apr 20 2011

Programs

  • GAP
    Flat(List([1..10], n-> List([1..n], k-> Stirling1(n,n-k+1) ))); # G. C. Greubel, Dec 29 2019
  • Haskell
    a094638 n k = a094638_tabl !! (n-1) !! (k-1)
    a094638_row n = a094638_tabl !! (n-1)
    a094638_tabl = map reverse a130534_tabl
    -- Reinhard Zumkeller, Aug 01 2014
    
  • Magma
    [(-1)^(k+1)*StirlingFirst(n,n-k+1): k in [1..n], n in [1..10]]; // G. C. Greubel, Dec 29 2019
    
  • Maple
    T:=(n,k)->abs(Stirling1(n,n+1-k)): for n from 1 to 10 do seq(T(n,k),k=1..n) od; # yields sequence in triangular form. # Emeric Deutsch, Aug 14 2006
  • Mathematica
    Table[CoefficientList[Series[Product[1 + i x, {i,n}], {x,0,20}], x], {n,0,6}] (* Geoffrey Critzer, Feb 04 2011 *)
    Table[Abs@StirlingS1[n, n-k+1], {n, 10}, {k, n}]//Flatten (* Michael De Vlieger, Aug 29 2015 *)
  • Maxima
    create_list(abs(stirling1(n+1,n-k+1)),n,0,10,k,0,n); /* Emanuele Munarini, Jun 01 2012 */
    
  • PARI
    {T(n,k)=if(n<1 || k>n,0,(n-1)!*polcoeff(polcoeff(x*y/(1 - x*y+x*O(x^n))^(1 + 1/y),n,x),k,y))} /* Paul D. Hanna, Jul 21 2011 */
    
  • Sage
    [[stirling_number1(n, n-k+1) for k in (1..n)] for n in (1..10)] # G. C. Greubel, Dec 29 2019
    

Formula

With P(n,t) = Sum_{k=0..n-1} T(n,k+1) * t^k = 1*(1+t)*(1+2t)...(1+(n-1)*t) and P(0,t)=1, exp[P(.,t)*x] = (1-tx)^(-1/t). T(n,k+1) = (1/k!) (D_t)^k (D_x)^n [ (1-tx)^(-1/t) - 1 ] evaluated at t=x=0. (1-tx)^(-1/t) - 1 is the e.g.f. for a plane m-ary tree when t=m-1. See Bergeron et al. in "Varieties of Increasing Trees". - Tom Copeland, Dec 09 2007
First comment and formula above rephrased as o.g.f. for row n: Product_{i=0...n} (1+i*x). - Geoffrey Critzer, Feb 04 2011
n-th row polynomials with alternate signs are the characteristic polynomials of the (n-1)x(n-1) matrices with 1's in the superdiagonal, (1,2,3,...) in the main diagonal, and the rest zeros. For example, the characteristic polynomial of [1,1,0; 0,2,1; 0,0,3] is x^3 - 6*x^2 + 11*x - 6. - Gary W. Adamson, Jun 28 2011
E.g.f.: A(x,y) = x*y/(1 - x*y)^(1 + 1/y) = Sum_{n>=1, k=1..n} T(n,k)*x^n*y^k/(n-1)!. - Paul D. Hanna, Jul 21 2011
With F(x,t) = (1-t*x)^(-1/t) - 1 an e.g.f. for the row polynomials P(n,t) of A094638 with P(0,t)=0, G(x,t)= [1-(1+x)^(-t)]/t is the comp. inverse in x. Consequently, with H(x,t) = 1/(dG(x,t)/dx) = (1+x)^(t+1),
P(n,t) = [(H(x,t)*d/dx)^n] x evaluated at x=0; i.e.,
F(x,t) = exp[x*P(.,t)] = exp[x*H(u,t)*d/du] u, evaluated at u = 0.
Also, dF(x,t)/dx = H(F(x,t),t). - Tom Copeland, Sep 20 2011
T(n,k) = |A008276(n,k)|. - R. J. Mathar, May 19 2016
The row polynomials of this entry are the reversed row polynomials of A143491 multiplied by (1+x). E.g., (1+x)(1 + 5x + 6x^2) = (1 + 6x + 11x^2 + 6x^3). - Tom Copeland, Dec 11 2016
Regarding the row e.g.f.s in Copeland's 2007 formulas, e.g.f.s for A001710, A001715, and A001720 give the compositional inverses of the e.g.f. here for t = 2, 3, and 4 respectively. - Tom Copeland, Dec 28 2019

Extensions

Edited by Emeric Deutsch, Aug 14 2006

A000914 Stirling numbers of the first kind: s(n+2, n).

Original entry on oeis.org

0, 2, 11, 35, 85, 175, 322, 546, 870, 1320, 1925, 2717, 3731, 5005, 6580, 8500, 10812, 13566, 16815, 20615, 25025, 30107, 35926, 42550, 50050, 58500, 67977, 78561, 90335, 103385, 117800, 133672, 151096, 170170, 190995, 213675, 238317, 265031
Offset: 0

Views

Author

Keywords

Comments

Sum of product of unordered pairs of numbers from {1..n+1}.
Number of edges of a complete k-partite graph of order k*(k+1)/2 (A000217), K_1,2,3,...,k. - Roberto E. Martinez II, Oct 18 2001
This sequence holds the x^(n-2) coefficient of the characteristic polynomial of the N X N matrix A formed by MAX(i,j), where i is the row index and j is the column index of element A[i][j], 1 <= i,j <= N. Here N >= 2. - Paul Max Payton, Sep 06 2005
The sequence contains the partial sums of A006002, which represent the areas beneath lines created by the triangular numbers plotted (t(1),t(2)) connected to (t(2),t(3)) then (t(3),t(4))...(t(n-1),t(n)) and the x-axis. - J. M. Bergot, May 05 2012
Number of functions f from [n+2] to [n+2] with f(x)=x for exactly n elements x of [n+2] and f(x)>x for exactly two elements x of [n+2]. To prove this, let the two elements of [n+2] with a larger image be labeled i and j. Note both i and j must be less than n+2. Then there are (n+2-i) choices for f(i) and (n+2-j) choices for f(j). Summing the product of the number of choices over all sets {i,j} gives us "Sum of product of unordered pairs of numbers from {1..n+1}" in the first line of the Comments Section. See the example in the Example Section below. - Dennis P. Walsh, Sep 06 2017
Zhu Shijie gives in his Magnus Opus "Jade Mirror of the Four Unknowns" the problem: "Apples are piled in the form of a triangular pyramid. The top apple is worth 2 and the price of the whole is 1320. Each apple in one layer costs 1 less than an apple in the next layer below." We find the solution 9 to this problem in this sequence 1320 = a(9). Zhu Shijie gave the solution polynomial: "Let the element tian be the number of apples in a side of the base. From the statement we have 31680 for the negative shi, 10 for the positive fang, 21 for the positive first lian, 14 for the positive last lian, and 3 for the positive yu." This translates into the polynomial equation: 3*x^4 + 14*x^3 + 21*x^2 + 10*x - 31680 = 0. - Thomas Scheuerle, Feb 10 2025

Examples

			Examples include E(K_1,2,3) = s(2+2,2) = 11 and E(K_1,2,3,4,5) = s(4+2,4) = 85, where E is the function that counts edges of graphs.
For n=2 the a(2)=11 functions f:[4]->[4] with exactly two f(x)=x and two f(x)>x are given by the 11 image vectors of form <f(1),f(2),f(3),f(4)> that follow: <1,3,4,4>, <1,4,4,4>, <2,2,4,4>, <3,2,4,4>, <4,2,4,4>, <2,3,3,4>, <2,4,3,4>, <3,3,3,4>, <3,4,3,4>, <4,3,3,4>, and <4,4,3,4>. - _Dennis P. Walsh_, Sep 06 2017
		

References

  • M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 833.
  • George E. Andrews, Number Theory, Dover Publications, New York, 1971, p. 4.
  • Louis Comtet, Advanced Combinatorics, Reidel, 1974, p. 227, #16.
  • F. N. David, M. G. Kendall and D. E. Barton, Symmetric Function and Allied Tables, Cambridge, 1966, p. 226.
  • H. S. Hall and S. R. Knight, Higher Algebra, Fourth Edition, Macmillan, 1891, p. 518.
  • Zhu Shijie, Jade Mirror of the Four Unknowns (Siyuan yujian), Book III Guo Duo Die Gang (Piles of Fruit), Problem number 1, 1303.
  • 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. similar sequences listed in A241765.
Cf. A001296.
Cf. A006325(n+1) (Zhu Shijie's problem number 2 uses a pyramid with square base).

Programs

  • Haskell
    a000914 n = a000914_list !! n
    a000914_list = scanl1 (+) a006002_list
    -- Reinhard Zumkeller, Mar 25 2014
    
  • Magma
    [StirlingFirst(n+2, n): n in [0..40]]; // Vincenzo Librandi, May 28 2019
  • Maple
    A000914 := n -> 1/24*(n+1)*n*(n+2)*(3*n+5);
    A000914 := proc(n)
        combinat[stirling1](n+2,n) ;
    end proc: # R. J. Mathar, May 19 2016
  • Mathematica
    Table[StirlingS1[n+2,n],{n,0,40}] (* Harvey P. Dale, Aug 24 2011 *)
    a[ n_] := n (n + 1) (n + 2) (3 n + 5) / 24; (* Michael Somos, Sep 04 2017 *)
  • PARI
    a(n)=sum(i=1,n+1,sum(j=1,n+1,i*j*(i
    				
  • PARI
    a(n)=sum(i=1,n+1,sum(j=1,i-1,i*j)) \\ Charles R Greathouse IV, Apr 07 2015
    
  • PARI
    a(n) = binomial(n+2, 3)*(3*n+5)/4 \\ Charles R Greathouse IV, Apr 07 2015
    
  • Sage
    [stirling_number1(n+2, n) for n in range(41)] # Zerinvary Lajos, Mar 14 2009
    

Formula

a(n) = binomial(n+2, 3)*(3*n+5)/4 = (n+1)*n*(n+2)*(3*n+5)/24.
E.g.f.: exp(x)*x*(48 + 84*x + 32*x^2 + 3*x^3)/24.
G.f.: (2*x+x^2)/(1-x)^5. - Simon Plouffe in his 1992 dissertation.
a(n) = Sum_{i=1..n} i*(i+1)^2/2. - Jon Perry, Jul 31 2003
a(n) = A052149(n+1)/2. - J. M. Bergot, Jun 02 2012
-(3*n+2)*(n-1)*a(n) + (n+2)*(3*n+5)*a(n-1) = 0. - R. J. Mathar, Apr 30 2015
a(n) = a(n-1) + (n+1)*binomial(n+1,2) for n >= 1. - Dennis P. Walsh, Sep 21 2015
a(n) = A001296(-2-n) for all n in Z. - Michael Somos, Sep 04 2017
From Amiram Eldar, Jan 10 2022: (Start)
Sum_{n>=1} 1/a(n) = 162*log(3)/5 - 18*sqrt(3)*Pi/5 - 384/25.
Sum_{n>=1} (-1)^(n+1)/a(n) = 36*sqrt(3)*Pi/5 - 96*log(2)/5 - 636/25. (End)
a(n) = 3*A000332(n+3) - A000292(n). - Yasser Arath Chavez Reyes, Apr 03 2024

Extensions

More terms from Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Jan 17 2000
Comments from Michael Somos, Jan 29 2000
Erroneous duplicate of the polynomial formula removed by R. J. Mathar, Sep 15 2009

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

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

A001303 Stirling numbers of first kind, s(n+3, n), negated.

Original entry on oeis.org

6, 50, 225, 735, 1960, 4536, 9450, 18150, 32670, 55770, 91091, 143325, 218400, 323680, 468180, 662796, 920550, 1256850, 1689765, 2240315, 2932776, 3795000, 4858750, 6160050, 7739550, 9642906, 11921175, 14631225, 17836160, 21605760, 26016936, 31154200
Offset: 1

Views

Author

Keywords

Comments

a(n) is equal to the sum of the products of each distinct grouping of 3 members of the set {1, 2, 3, ..., n + 2} (a(1) = 1*2*3, a(2) = 1*2*3 + 1*2*4 + 1*3*4 + 2*3*4, a(3) = 1*2*3 + 1*2*4 + 1*2*5 + 1*3*4 + 1*3*5 + 1*4*5 + 2*3*4 + 2*3*5 + 2*4*5 + 3*4*5). - Jeffreylee R. Snow, Sep 23 2013

References

  • M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 833.
  • Louis Comtet, Advanced Combinatorics, Reidel, 1974, p. 227, #16.
  • F. N. David, M. G. Kendall and D. E. Barton, Symmetric Function and Allied Tables, Cambridge, 1966, p. 226.
  • 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

Programs

  • Maple
    seq(numbperm (n,2)*numbperm (n,4)/48, n=4..33); # Zerinvary Lajos, Apr 26 2007
    seq(15*binomial(n+2,6)-10*binomial(n+1,5)+binomial(n,4),n=4..30); # Miklos Kristof, Nov 04 2007
    A001303 := proc(n)
        -combinat[stirling1](n+3,n) ;
    end proc: # R. J. Mathar, May 19 2016
  • Mathematica
    Table[-StirlingS1[n + 3, n], {n, 100}] (* T. D. Noe, Jun 27 2012 *)
    a[ n_] := n (n + 1) (n + 2)^2 (n + 3)^2 / 48; (* Michael Somos, Sep 04 2017 *)
  • PARI
    a(n) = n*(n+1)*(n+2)^2*(n+3)^2/48; \\ Altug Alkan, Aug 29 2017
  • Sage
    [stirling_number1(n,n-3) for n in range(4, 34)] # Zerinvary Lajos, May 16 2009
    

Formula

a(n) = binomial(n+3, 4)*binomial(n+3, 2).
G.f.: x*(6 + 8*x + x^2)/(1 - x)^7. - Simon Plouffe in his 1992 dissertation
E.g.f. with offset 3: exp(x)*(6*(x^3)/3! + 26*(x^4)/4! + 35*(x^5)/5! + 15*(x^6)/6!). See row k=3 of A112486 for the coefficients [6, 26, 35, 15].
a(n) = (f(n+2, 3)/6!)*Sum_{m=0..min(3, n)} A112486(3,m)*f(6, 3-m)*f(n-1, m), with the falling factorials notation f(n, m):=n*(n-1)*...*(n-(m-1)).
From Jason Lang, Oct 03 2006: (Start)
a(n) = A000217(n) * n! / ( 4! * (n-4)! ) [for n > 4 and A000217 = the triangular numbers];
a(n) = ((n+4)! / n! ) ^2 / ( (n+2) * (n+1) * 2*4!);
a(n) = (n-0)^2 * (n-1)^2 * (n-2) * (n-3) / (2*4!). (End)
From Miklos Kristof, Nov 04 2007: (Start)
a(n) = 15*binomial(n+5,6) - 10*binomial(n+4,5) + binomial(n+3,4).
E.g.f. with offset 4: exp(x)*((1/4)*x^4 + (1/6)*x^5 + (1/48)*x^6). (End)
a(n) = n*(n+1)(n+2)^2*(n+3)^2/48. - Jeremy Galvagni, Mar 03 2009
From Gary Detlefs, Jun 06 2010: (Start)
a(n) = (n+3)^2/(n^2-1)*a(n-1), n > 1;
a(n) = 6*Product_{k=2..n} (k+3)^2/(k^2 - 1). (End)
a(n) = A001297(-3-n) for all n in Z. - Michael Somos, Sep 04 2017
From Amiram Eldar, Jan 10 2022: (Start)
Sum_{n>=1} 1/a(n) = 16*Pi^2/3 - 472/9.
Sum_{n>=1} (-1)^(n+1)/a(n) = 4*Pi^2/3 + 16/9 - 64*log(2)/3. (End)

Extensions

More terms from Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Jan 17 2000
Notation of the polynomial formula edited by R. J. Mathar, Sep 15 2009

A010763 a(n) = binomial(2n+1, n+1) - 1.

Original entry on oeis.org

0, 2, 9, 34, 125, 461, 1715, 6434, 24309, 92377, 352715, 1352077, 5200299, 20058299, 77558759, 300540194, 1166803109, 4537567649, 17672631899, 68923264409, 269128937219, 1052049481859, 4116715363799, 16123801841549, 63205303218875, 247959266474051
Offset: 0

Views

Author

Keywords

Comments

(With a different offset:) p divides a(p) for prime p. p^2 divides a(p) for prime p > 2. p^3 divides a(p) for prime p > 3 (implied by Wolstenholme's theorem). Wolstenholme's quotients are listed in A034602(n) = a(prime(n))/prime(n)^3 = {1, 5, 265, 2367, 237493, 2576561, 338350897, ...} = a(p)/p^3 for prime p > 3. p^3 divides a(p^k) for prime p > 3 and integer k > 0. Primes in a(n) are listed in A112862(n) = {2, 461, 92377, 269128937219, ...} Primes of the form (2*n)!/(2*(n!)^2) - 1. Numbers n such that a(n) is prime are listed in A112861(n) = {2, 6, 10, 21, 45, 63, 306, 404, 437, 471, 646, ...}. - Alexander Adamchuk, Jan 05 2007
a(n-1) is the number of weak compositions of n into n parts in which at least one part is zero. a(3)=34 since 4 can be written as 4+0+0+0 (4 such compositions); 3+1+0+0 (12 such compositions); 2+2+0+0 (6 such compositions); 2+1+1+0 (12 such compositions). All these weak compositions contain at least one zero. - Enrique Navarrete, Jan 09 2022

Crossrefs

Programs

  • Magma
    [Binomial(2*n-1,n-1)-1: n in [1..30]]; // Vincenzo Librandi, Mar 21 2013
    
  • Maple
    A010763:=n->binomial(2*n+1, n+1) - 1: seq(A010763(n), n=0..30); # Wesley Ivan Hurt, Sep 05 2015
  • Mathematica
    Table[Binomial[2n - 1, n - 1] - 1, {n, 20}] (* Alonso del Arte, Dec 13 2012 *)
    CoefficientList[Series[Exp[2*x]*(BesselI[0,2*x] + BesselI[1,2*x]) - Exp[x], {x, 0, 20}], x]*Table[n!, {n, 0, 20}] (* Stefano Spezia, Dec 02 2018 *)
  • PARI
    a(n) = binomial(2*n+1, n+1) - 1;
    vector(30, n, a(n-1)) \\ Michel Marcus, Sep 05 2015
    
  • PARI
    first(n) = x='x+O('x^n); Vec((1 - sqrt(1 - 4*x))/(2*x*sqrt(1 - 4*x)) - 1/(1 - x), -n) \\ Iain Fox, Dec 19 2017 (corrected by Iain Fox, Oct 24 2018)

Formula

a(n) = (n/(2n+2))*Sum_{k = 1..n+1} C(2n+2, k)/C(n+1, k). - Benoit Cloitre, Aug 20 2002
a(n) = Sum_{i = 1..n} C(n + i, n). - Benoit Cloitre, Oct 15 2002
a(n + 1) = C(2n - 1, n - 1) - 1. - Alonso del Arte, Dec 15 2012
From Ilya Gutkovskiy, Feb 07 2017: (Start)
O.g.f.: (1 - sqrt(1 - 4*x))/(2*x*sqrt(1 - 4*x)) - 1/(1 - x).
E.g.f.: exp(2*x)*(BesselI(0,2*x) + BesselI(1,2*x)) - exp(x). (End)

A005564 Number of n-step walks on square lattice in the first quadrant which finish at distance n-3 from the x-axis.

Original entry on oeis.org

6, 20, 45, 84, 140, 216, 315, 440, 594, 780, 1001, 1260, 1560, 1904, 2295, 2736, 3230, 3780, 4389, 5060, 5796, 6600, 7475, 8424, 9450, 10556, 11745, 13020, 14384, 15840, 17391, 19040, 20790, 22644, 24605, 26676, 28860, 31160, 33579, 36120, 38786, 41580, 44505
Offset: 3

Views

Author

Keywords

Comments

The steps are N, S, E or W.
For n>=4, a(n-1)/2 is the coefficient c(n-2) of the m^(n-2) term of P(m,n) = (c(m-1)* m^(n-1) + c(m-2)* m^(n-2) +...+ c(0)* m^0)/((a!)* (a-1)!), the polynomial for the number of partitions of m with exactly n parts. - Gregory L. Simay, Jun 28 2016
2a(n) is the denominator of formula 207 in Jolleys' "Summation of Series." 2/(1*3*4)+3/(2*4*5)+...n terms. Sum_{k = 1..n} (k+1)/(k*(k+2)*(k+3)). This summation has a closed form of 17/36-(6*n^2+21*n+17)/(6*(n+1)*(n+2)*(n+3)). - Gary Detlefs, Mar 15 2018
a(n) is the number of degrees of freedom in a tetrahedral cell for a Nédélec first kind finite element space of order n-2. - Matthew Scroggs, Jan 02 2021

Examples

			The n=4 diagram in Fig. 4 of Guy's paper is:
1
0 4
9 0 6
0 16 0 4
10 0 9 0 1
Adding 16+4 we get a(4)=20.
The a(3) = 6 walks are EEN, ENE, ENW, NEW, NSN, NNS. - _Michael Somos_, Jun 09 2014
G.f. = 6*x^3 + 20*x^4 + 45*x^5 + 84*x^6 + 140*x^7 + 216*x^8 + 315*x^9 + ...
From _Gregory L. Simay_ Jun 28 2016: (Start)
P(m,4) = (m^3 + 3*m^2 + ...)/(3!*4!) with 3 = a(3)/2 = 6/2.
P(m,5) = (m^4 + 10*m^3 + ...)/(4!*5!) with 10 = a(4)/2 = 20/2.
P(m,6) = (m^5 + (45/2)*m^4 +...)/(5!*6!) with 45/2 = a(5)/2.
P(m,7) = (m^6 + 42*m^5 +...)/(6!*7!) with 42 = a(6)/2 = 84/2. (End)
		

References

  • L. B. W. Jolley, "Summation of Series", Dover Publications, 1961, p. 38.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A000217.
First differences of A001701.
Fourth column of A093768.

Programs

  • GAP
    a:=List([0..45],n->(n+1)*Binomial(n+4,2)); # Muniru A Asiru, Feb 15 2018
  • Magma
    I:=[6, 20, 45, 84]; [n le 4 select I[n] else 4*Self(n-1)-6*Self(n-2)+4*Self(n-3)-Self(n-4): n in [1..45]]; // Vincenzo Librandi, Jun 18 2012
    
  • Maple
    A005564 := proc(n)
            (n-2)*(n)*(n+1)/2 ;
    end proc: seq(A005564(n),n=0..10) ; # R. J. Mathar, Dec 09 2011
  • Mathematica
    Table[(n-2)*Binomial[n+1, 2], {n, 3, 40}]
    LinearRecurrence[{4,-6,4,-1},{6,20,45,84},50] (* Vincenzo Librandi, Jun 18 2012 *)
  • PARI
    a(n)=(n-2)*(n)*(n+1)/2 \\ Charles R Greathouse IV, Dec 12 2011
    

Formula

G.f.: x^3 * ( 6 - 4*x + x^2 ) / ( 1 - x )^4. [Simon Plouffe in his 1992 dissertation]
a(n) = (n-2)*n*(n+1)/2 = (n-2)*A000217(n).
a(n) = Sum_{j = 0..n} ((n+j-1)^2-(n-j+1)^2)/4. - Zerinvary Lajos, Sep 13 2006
a(n) = Sum_{k = 2..n-1} k*n. - Zerinvary Lajos, Jan 29 2008
a(n) = 4*binomial(n+1,2)*binomial(n+1,4)/binomial(n+1,3) = (n-2)*binomial(n+1,2). - Gary Detlefs, Dec 08 2011
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4). - Vincenzo Librandi, Jun 18 2012
E.g.f.: x - x*(2 - 2*x - x^2)*exp(x)/2. - Ilya Gutkovskiy, Jun 29 2016
a(n) = 6*Sum_{i = 1..n-1} A000217(i) - n*A000217(n). - Bruno Berselli, Jul 03 2018
Sum_{n>=3} 1/a(n) = 5/18. - Amiram Eldar, Oct 07 2020

Extensions

Entry revised by N. J. A. Sloane, Jul 06 2012

A145324 Triangle read by rows: coefficients of 1; 1(X+2); 1(X+2)(X+3); 1(X+2)(X+3)(X+4); ....

Original entry on oeis.org

1, 1, 2, 1, 5, 6, 1, 9, 26, 24, 1, 14, 71, 154, 120, 1, 20, 155, 580, 1044, 720, 1, 27, 295, 1665, 5104, 8028, 5040, 1, 35, 511, 4025, 18424, 48860, 69264, 40320, 1, 44, 826, 8624, 54649, 214676, 509004, 663696, 362880, 1, 54, 1266, 16884, 140889, 761166
Offset: 1

Views

Author

Jose Ramon Real, Oct 07 2008

Keywords

Comments

The last number of row n is n!.
Essentially the triangle given by [1, 0, 1, 0, 1, 0, 1, 0, 1, ...] DELTA [2, 1, 3, 2, 4, 3, 5, 4, 6, 5, ...] where DELTA is the operator defined in A084938. - Philippe Deléham, Nov 09 2008
T(n+1,k+1) = a_k(2,3,...,n+1), n >= 0, k = 0..n, with the elementary symmetric function a_k(x[1],x[2],...,x[n]), with a_0(0):=1. E.g., a_2(2,3,4) = 2*3 + 2*4 + 3*4 = 26 = T(4,3). - Wolfdieter Lang, Oct 24 2011

Examples

			From _Wolfdieter Lang_, Oct 24 2011: (Start)
n\k 1  2   3    4     5    6     7 ...
1:  1
2:  1  2
3:  1  5   6
4:  1  9  26   24
5:  1 14  71  154   120
6:  1 20 155  580  1044  720
7:  1 27 295 1665  5104 8028  5040
...
T(4,3)= 26 = |s(5,3)| - |s(5,4)| + |s(5,5)| = 35 - 10 + 1.
(End)
		

Programs

  • Maple
    A145324 := proc(n,k) coeftayl( 1*mul(x+i,i=2..n),x=0,n-k) ; end: for n from 1 to 11 do for k from 1 to n do printf("%d,",A145324(n,k)) ; od: od: # R. J. Mathar, Oct 10 2008
  • Mathematica
    Table[Reverse[CoefficientList[Product[x+j, {j, 2, k}], x]], {k, 1, 15}] // Flatten (* Robert A. Russell, Sep 29 2018 *)

Formula

T(n,k) = A143491(n+1,n+2-k). - R. J. Mathar, Oct 10 2008
T(n,k) = Sum_{m=0..k-1} (-1)^m*|s(n+1, n+2-k+m)|, n >= 1, k = 1..n, with the Stirling numbers of the first kind s(n,k) = A048994(n,k). - Wolfdieter Lang, Oct 24 2011
T(n,k) = T(n-1,k)+n*T(n-1,k-1). - Mikhail Kurkov, Jun 26 2018

Extensions

More terms from R. J. Mathar, Oct 10 2008

A001706 Generalized Stirling numbers.

Original entry on oeis.org

1, 9, 71, 580, 5104, 48860, 509004, 5753736, 70290936, 924118272, 13020978816, 195869441664, 3134328981120, 53180752331520, 953884282141440, 18037635241029120, 358689683932346880, 7483713725055744000, 163478034254755584000, 3731670622213083648000
Offset: 0

Views

Author

Keywords

Comments

The asymptotic expansion of the higher order exponential integral E(x,m=3,n=2) ~ exp(-x)/x^3*(1 - 9/x + 71/x^2 - 580/x^3 + 5104/x^4 - 48860/x^5 + the sequence given above). See A163931 and A163932 for more information. - Johannes W. Meijer, Oct 20 2009
a(n-1) is equal to -1 times the coefficient of x of the characteristic polynomial of the n X n matrix whose (i,j)-entry is equal to i+3 if i=j and is equal to 1 otherwise. - John M. Campbell, May 24 2011

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).

Programs

  • Mathematica
    Table[-Coefficient[CharacteristicPolynomial[Array[KroneckerDelta[#1,#2]((((#1+3)))-1)+1&,{n,n}],x],x,1],{n,1,10}] (* John M. Campbell, May 24 2011 *)

Formula

E.g.f. (with offset 2): log(1 - x)^2 / (2 * (1 - x)^2).
a(n) = Sum_{k=0..n}(-1)^(n+k)*binomial(k+2, 2)*2^k*stirling1(n+2, k+2). - Borislav Crstici (bcrstici(AT)etv.utt.ro), Jan 26 2004
a(n-1) = (1/2)*Sum_{i=0..n} binomial(n, i)*A000254(i)*A000254(n-i). - Benoit Cloitre, Mar 09 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 a(n-1) = |f(n,2,2)|, for n>=2. - Milan Janjic, Dec 21 2008
a(n) = (n+3)!*((gamma-1)*Psi(n+4)+2+gamma^2-17*gamma/6+sum(Psi(i+4)/(i+4),i = 0 .. n-1)). - Mark van Hoeij, Oct 26 2011

Extensions

More terms from Christian G. Bower
Showing 1-10 of 18 results. Next