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

A002104 Logarithmic numbers.

Original entry on oeis.org

0, 1, 3, 8, 24, 89, 415, 2372, 16072, 125673, 1112083, 10976184, 119481296, 1421542641, 18348340127, 255323504932, 3809950977008, 60683990530225, 1027542662934915, 18430998766219336, 349096664728623336, 6962409983976703337, 145841989688186383359, 3201192743180799343844
Offset: 0

Views

Author

Keywords

Comments

Prime p divides a(p+1). - Alexander Adamchuk, Jul 05 2006
Also number of lists of elements from {1,..,n} with (1st element) = (smallest element), where a list means an ordered subset (cf. A000262), see also Haskell program. - Reinhard Zumkeller, Oct 26 2010
a(n+1) = p_n(-1) where p_n(x) is the unique degree-n polynomial such that p_n(k) = A133942(k) for k = 0, 1, ..., n. - Michael Somos, Apr 30 2012
a(n) = A006231(n) + n. - Geoffrey Critzer, Oct 04 2012

Examples

			From _Reinhard Zumkeller_, Oct 26 2010: (Start)
a(3) = #{[1], [1,2], [1,2,3], [1,3], [1,3,2], [2], [2,3], [3]} = 8;
a(4) = #{[1], [1,2], [1,2,3], [1,2,3,4], [1,2,4], [1,2,4,3], [1,3], [1,3,2], [1,3,2,4], [1,3,4], [1,3,4,2], [1,4], [1,4,2], [1,4,2,3], [1,4,3], [1,4,3,2], [2], [2,3], [2,3,4], [2,4], [2,4,3], [3], [3,4], [4]} = 24. (End)
G.f. = x + 3*x^2 + 8*x^3 + 24*x^4 + 89*x^5 + 415*x^6 + 2372*x^7 + ...
		

References

  • J. M. Gandhi, On logarithmic numbers, Math. Student, 31 (1963), 73-83.
  • 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

  • Haskell
    import Data.List (subsequences, permutations)
    a002104 = length . filter (\xs -> head xs == minimum xs) .
                       tail . choices . enumFromTo 1
       where choices = concat . map permutations . subsequences
    -- Reinhard Zumkeller, Feb 21 2012, Oct 25 2010
    
  • Maple
    a := proc(n) option remember; ifelse(n < 2, n, n*a(n-1) - (n-1)*a(n-2) + 1) end:
    seq(a(n), n = 0..23); # Peter Luschny, Dec 05 2023
  • Mathematica
    Table[Sum[Sum[m!/k!,{k,0,m}],{m,0,n-1}],{n,1,30}] (* Alexander Adamchuk, Jul 05 2006 *)
    a[n_] = n*(HypergeometricPFQ[{1, 1, 1-n}, {2}, -1]); Table[a[n], {n, 1, 20}] (* Jean-François Alcover, Mar 29 2011 *)
  • PARI
    x='x+O('x^99); concat([0], Vec(serlaplace(-log(1-x)*exp(x)))) \\ Altug Alkan, Dec 17 2017
    
  • PARI
    {a(n) = sum(k=0, n-1, binomial(n, k) * (n-k-1)!)}; /* Michael Somos, May 08 2019 */

Formula

E.g.f.: -log(1 - x) * exp(x).
a(n) = Sum_{k=1..n} Sum_{i=0..n-k} (n-k)!/i!.
a(n) = Sum_{k=1..n} n(n-1)...(n-k+1)/k = A006231(n) + n - Avi Peretz (njk(AT)netvision.net.il), Mar 24 2001
a(n+1) - a(n) = A000522(n).
a(n) = sum{k=0..n-1, binomial(n, k)*(n-k-1)!}, row sums of A111492. - Paul Barry, Aug 26 2004
a(n) = Sum[Sum[m!/k!,{k,0,m}],{m,0,n-1}]. a(n) = Sum[A000522(m),{m,0,n-1}]. - Alexander Adamchuk, Jul 05 2006
For n > 1, the arithmetic mean of the first n terms is a(n-1) + 1. - Franklin T. Adams-Watters, May 20 2010
a(n) = n * 3F1((1,1,1-n); (2); -1). - Jean-François Alcover, Mar 29 2011
Conjecture: a(n) +(-n-1)*a(n-1) +2*(n-1)*a(n-2) +(-n+2)*a(n-3)=0. - R. J. Mathar, Dec 02 2012
From Emanuele Munarini, Dec 16 2017: (Start)
The generating series A(x) = -exp(x)*log(1-x) satisfies the differential equations:
(1-x)*A'(x) - (1-x)*A(x) = exp(x)
(1-x)*A''(x) - (3-2*x)*A'(x) + (2-x)*A(x) = 0.
From the first one, we have the recurrence reported below by R. R. Forberg. From the second one, we have the recurrence conjectured above. (End)
G.f.: conjecture: T(0)*x/(1-2*x)/(1-x), where T(k) = 1 - x^2*(k+1)^2/(x^2*(k+1)^2 - (1 - 2*x*(k+1))*(1 - 2*x*(k+2))/T(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Nov 18 2013
a(n) ~ exp(1)*(n-1)!. - Vaclav Kotesovec, Mar 10 2014
a(n) = n*a(n-1) - (n-1)*a(n-2) + 1, a(0) = 0, a(1) = 1. - Richard R. Forberg, Dec 15 2014
a(n) = A007526(n) + A006231(n+1) - A030297(n). - Anton Zakharov, Sep 05 2016
0 = +a(n)*(+a(n+1) -4*a(n+2) +4*a(n+3) -a(n+4)) +a(n+1)*(+2*a(n+2) -5*a(n+3) +2*a(n+4)) +a(n+2)*(+2*a(n+2) -a(n+3) -a(n+4)) +a(n+3)*(+a(n+3)) for all n>=0. - Michael Somos, May 08 2019
From Peter Bala, Sep 12 2022: (Start)
For n, m >= 0, a(n) - a(n + m) == ( a(1) - a(m) ) (mod m). The sequence {mod(a(1) - a(m+1), m): m >= 1} begins [0, 1, 1, 0, 1, 5, 1, 0, 3, 7, 1, 4, 1, 9, 8, 0, 1, 15, 1, 4, ...].
Conjectures:
1) for n, m >= 0, k >= 2, a(n + m*2^k) - a(n) is divisible by 2^k.
2) for n >= 0, a(n + m*p^k) - a(n) + m*p^(k-1) is divisible by p^k for all positive integers m and k, and for all odd primes p. The particular case n = m = k = 1 is stated in the Comments section by Adamchuk. (End)
a(n) = Integral_{t=0..oo} ((t + 1)^n - 1)/(t*e^t) dt. - Velin Yanev, Apr 13 2024
a(n) = Gamma(n)*(e - ((-1)^n)*Gamma(1 - n, -1)) + hypergeom([1, 1], [2, n + 2], 1)/(n + 1) - polygamma(n) - 1/n + i*Pi for n > 0, where polygamma is the digamma function and the bivariate gamma function is the upper incomplete gamma function. - Velin Yanev, Apr 13 2024

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Mar 27 2001

A048594 Triangle T(n,k) = k! * Stirling1(n,k), 1<=k<=n.

Original entry on oeis.org

1, -1, 2, 2, -6, 6, -6, 22, -36, 24, 24, -100, 210, -240, 120, -120, 548, -1350, 2040, -1800, 720, 720, -3528, 9744, -17640, 21000, -15120, 5040, -5040, 26136, -78792, 162456, -235200, 231840, -141120, 40320, 40320, -219168, 708744, -1614816, 2693880, -3265920, 2751840, -1451520, 362880
Offset: 1

Views

Author

Oleg Marichev (oleg(AT)wolfram.com)

Keywords

Comments

Row sums (unsigned) give A007840(n), n>=1; (signed): A006252(n), n>=1.
Apart from signs, coefficients in expansion of n-th derivative of 1/log(x).

Examples

			Triangle begins
   1;
  -1,    2;
   2,   -6,   6;
  -6,   22, -36,   24;
  24, -100, 210, -240, 120; ...
The 2nd derivative of 1/log(x) is -2/x^3*log(x)^2 - 6/x^3*log(x)^3 - 6/x^3*log(x)^4.
		

Crossrefs

Cf. A133942 (left edge), A000142 (right edge), A006252 (row sums), A238685 (central terms).
Row sums: A007840 (unsigned), A006252 (signed).

Programs

  • Haskell
    a048594 n k = a048594_tabl !! (n-1) !! (k-1)
    a048594_row n = a048594_tabl !! (n-1)
    a048594_tabl = map snd $ iterate f (1, [1]) where
       f (i, xs) = (i + 1, zipWith (-) (zipWith (*) [1..] ([0] ++ xs))
                                       (map (* i) (xs ++ [0])))
    -- Reinhard Zumkeller, Mar 02 2014
    
  • Magma
    /* As triangle: */ [[Factorial(k)*StirlingFirst(n,k): k in [1..n]]: n in [1.. 15]]; // Vincenzo Librandi, Dec 15 2015
    
  • Maple
    with(combinat): A048594 := (n,k)->k!*stirling1(n,k);
  • Mathematica
    Flatten[Table[k!*StirlingS1[n,k], {n,10}, {k,n}]] (* Harvey P. Dale, Aug 28 2011 *)
    Join @@ CoefficientRules[ -Table[ D[ 1/Log[z], {z, n}], {n, 9}] /. Log[z] -> -Log[z], {1/z, 1/Log[z]}, "NegativeLexicographic"][[All, All, 2]] (* Oleg Marichev (oleg(AT)wolfram.com) and Maxim Rytin (m.r(AT)inbox.ru); submitted by Robert G. Wilson v, Aug 29 2011 *)
  • PARI
    {T(n, k)= if(k<1 || k>n, 0, stirling(n, k)* k!)} /* Michael Somos Apr 11 2007 */
    
  • SageMath
    def A048594(n,k): return (-1)^(n-k)*factorial(k)*stirling_number1(n,k)
    flatten([[A048594(n,k) for k in range(1,n+1)] for n in range(1,13)]) # G. C. Greubel, Oct 24 2023

Formula

T(n, k) = k*T(n-1, k-1) - (n-1)*T(n-1, k) if n>=k>=1, T(n, 0) = 0 and T(1, 1)=1, else 0.
E.g.f. k-th column: log(1+x)^k, k>=1.
From Peter Bala, Nov 25 2011: (Start):
E.g.f.: 1/(1-t*log(1+x)) = 1 + t*x + (-t+2*t^2)*x^2/2! + ....
The row polynomials are given by D^n(1/(1-x*t)) evaluated at x = 0, where D is the operator exp(-x)*d/dx.
(End)

A238363 Coefficients for the commutator for the logarithm of the derivative operator [log(D),x^n D^n]=d[(xD)!/(xD-n)!]/d(xD) expanded in the operators :xD:^k.

Original entry on oeis.org

1, -1, 2, 2, -3, 3, -6, 8, -6, 4, 24, -30, 20, -10, 5, -120, 144, -90, 40, -15, 6, 720, -840, 504, -210, 70, -21, 7, -5040, 5760, -3360, 1344, -420, 112, -28, 8, 40320, -45360, 25920, -10080, 3024, -756, 168, -36, 9, -362880, 403200, -226800, 86400, -25200, 6048, -1260, 240, -45, 10
Offset: 1

Views

Author

Tom Copeland, Feb 25 2014

Keywords

Comments

Let D=d/dx and [A,B]=A·B-B·A. Then each row corresponds to the coefficients of the operators :xD:^k = x^k D^k in the expansion of the commutator [log(D),:xD:^n]=[-log(x),:xD:^n]=sum(k=0 to n-1, a(n,k) :xD:^k). The e.g.f. is derived from [log(D), exp(t:xD:)]=[-log(x), exp(t:xD:)]= log(1+t)exp(t:xD:), using the shift property exp(t:xD:)f(x)=f((1+t)x).
The reversed unsigned array is A111492.
See the mathoverflow link and link therein to an associated mathstackexchange question for other formulas for log(D). In addition, R_x = log(D) = -log(x) + c - sum[n=1 to infnty, (-1)^n 1/n :xD:^n/n!]=
-log(x) + Psi(1+xD) = -log(x) + c + Ein(:xD:), where c is the Euler-Mascheroni constant, Psi(x), the digamma function, and Ein(x), a breed of the exponential integrals (cf. Wikipedia). The :xD:^k ops. commute; therefore, the commutator reduces to the -log(x) term.
Also the n-th row corresponds to the expansion of d[(xD)!/(xD-n)!]/d(xD) = d[:xD:^n]/d(xD) in the operators :xD:^k, or, equivalently, the coefficients of x in d[z!/(z-n)!]/dz=d[St1(n,z)]]/dz evaluated umbrally with z=St2(.,x), i.e., z^n replaced by St2(n,x), where St1(n,x) and St2(n,x) are the signed and unsigned Stirling polynomials of the first (A008275) and second (A008277) kinds. The derivatives of the unsigned St1 are A028421. See examples. This formalism follows from the relations between the raising and lowering operators presented in the MathOverflow link and the Pincherle derivative. The results can be generalized through the operator relations in A094638, which are related to the celebrated Witt Lie algebra and pseudodifferential operators / symbols, to encompass other integral arrays.
A002741(n)*(-1)^(n+1) (row sums), A002104(n)*(-1)^(n+1) (alternating row sums). Column sequences: A133942(n-1), A001048(n-1), A238474, ... - Wolfdieter Lang, Mar 01 2014
Add an additional head row of zeros to the lower triangular array and denote it as T (with initial indexing in columns and rows being 0). Let dP = A132440, the infinitesimal generator for the Pascal matrix, and I, the identity matrix, then exp(T)=I+dP, i.e., T=log(I+dP). Also, (T_n)^n=0, where T_n denotes the n X n submatrix, i.e., T_n is nilpotent of order n. - Tom Copeland, Mar 01 2014
Any pair of lowering and raising ops. L p(n,x) = n·p(n-1,x) and R p(n,x) = p(n+1,x) satisfy [L,R]=1 which implies (RL)^n = St2(n,:RL:), and since (St2(·,u))!/(St2(·,u)-n)!= u^n, when evaluated umbrally, d[(RL)!/(RL-n)!]/d(RL) = d[:RL:^n]/d(RL) is well-defined and gives A238363 when the LHS is reduced to a sum of :RL:^k terms, exactly as for L=d/dx and R=x above. (Note that R_x above is a raising op. different from x, with associated L_x=-xD.) - Tom Copeland, Mar 02 2014
For relations to colored forests, disposition of flags on flagpoles, and the colorings of the vertices of the complete graphs K_n, encoded in their chromatic polynomials, see A130534. - Tom Copeland, Apr 05 2014
The unsigned triangle, omitting the main diagonal, gives A211603. See also A092271. Related to the infinitesimal generator of A008290. - Peter Bala, Feb 13 2017

Examples

			The first few row polynomials are
p(1,x)=  1
p(2,x)= -1 + 2x
p(3,x)=  2 - 3x + 3x^2
p(4,x)= -6 + 8x - 6x^2 + 4x^3
p(5,x)= 24 -30x +20x^2 -10x^3 + 5x^4
...........
For n=3: z!/(z-3)!=z^3-3z^2+2z=St1(3,z) with derivative 3z^2-6z+2, and
3·St2(2,x)-6·St2(1,x)+2=3(x^2+x)-6x+2=3x^2-3x+2=p(3,x). To see the relation to the operator formalism, note that (xD)^k=St2(k,:xD:) and (xD)!/(xD-k)!=[St2(·,:xD:)]!/[St2(·,:xD:)-k]!= :xD:^k.
The triangle a(n,k) begins:
n\k       0       1       2      3      4     5      6    7   8   9 ...
1:        1
2:       -1       2
3:        2      -3       3
4:       -6       8      -6      4
5:       24     -30      20    -10      5
6:     -120     144     -90     40    -15     6
7:      720    -840     504   -210     70   -21      7
8:    -5040    5760   -3360   1344   -420   112    -28    8
9:    40320  -45360   25920 -10080   3024  -756    168  -36   9
10: -362880  403200 -226800  86400 -25200  6048  -1260  240 -45  10
... formatted by _Wolfdieter Lang_, Mar 01 2014
-----------------------------------------------------------------------
		

Crossrefs

Programs

  • Mathematica
    a[n_, k_] := (-1)^(n-k-1)*n!/((n-k)*k!); Table[a[n, k], {n, 1, 10}, {k, 0, n-1}] // Flatten (* Jean-François Alcover, Jul 09 2015 *)

Formula

a(n,k) = (-1)^(n-k-1)*n!/((n-k)*k!) for k=0 to (n-1).
E.g.f.: log(1+t)*exp(x*t).
E.g.f.for unsigned array: -log(1-t)*exp(x*t).
The lowering op. for the row polynomials is L=d/dx, i.e., L p(n,x) = n*p(n-1,x).
An e.g.f. for an unsigned related version is -log(1+t)*exp(x*t)/t= exp(t*s(·,x)) with s(n,x)=(-1)^n * p(n+1,-x)/(n+1). Let L=d/dx and R= x-(1/((1-D)log(1-D))+1/D),then R s(n,x)= s(n+1,x) and L s(n,x)= n*s(n-1,x), defining a special Sheffer sequence of polynomials, an Appell sequence. So, R (-1)^(n-1) p(n,-x)/n = (-1)^n p(n+1,-x)/(n+1).
From Tom Copeland, Apr 17 2014: (Start)
Dividing each diagonal by its first element (-1)^(n-1)*(n-1)! yields the reverse of A104712.
Multiply each n-th diagonal of the Pascal lower triangular matrix by x^n and designate the result as A007318(x) = P(x). Then with dP = A132440, M = padded A238363 = A238385-I, I = identity matrix, and (B(.,x))^n = B(n,x) = the n-th Bell polynomial Bell(n,x) of A008277,
A) P(x)= exp(x*dP) = exp[x*(e^M-I)] = exp[M*B(.,x)] = (I+dP)^B(.,x), and
B) P(:xD:)=exp(dP:xD:)=exp[(e^M-I):xD:]=exp[M*B(.,:xD:)]=exp[M*xD]=
(1+dP)^(xD) with action P(:xD:)g(x) = exp(dP:xD:)g(x) = g[(I+dP)*x].
C) P(x)^m = P(m*x). P(2x) = A038207(x) = exp[M*B(.,2x)], face vectors of n-D hypercubes. (End)
From Tom Copeland, Apr 26 2014: (Start)
M = padded A238363 = A238385-I
A) = [St1]*[dP]*[St2] = [padded A008275]*A132440*A048993
B) = [St1]*[dP]*[St1]^(-1)
C) = [St2]^(-1)*[dP]*[St2]
D) = [St2]^(-1)*[dP]*[St1]^(-1),
where [St1]=padded A008275 just as [St2]=A048993=padded A008277.
E) P(x) = [St2]*exp(x*M)*[St1] = [St2]*(I + dP)^x*[St1].
F) exp(x*M) = [St1]*P(x)*[St2] = (I + dP)^x,
where (I + dP)^x = sum(k>=0, C(x,k)*dP^k).
Let the row vector Rv=(c0 c1 c2 c3 ...) and the column vector Cv(x)=(1 x x^2 x^3 ...)^Transpose. Form the power series V(x)= Rv * Cv(x) and W(y) := V(x.) evaluated umbrally with (x.)^n = x_n = (y)_n = y!/(y-n)!. Then
G) U(:xD:) = dV(:xD:)/d(xD) = dW(xD)/d(xD) evaluated with (xD)^n = Bell(n,:xD:),
H) U(x) = dV(x.)/dy := dW(y)/dy evaluated with y^n=y_n=Bell(n,x), and
I) U(x) = Rv * M * Cv(x). (Cf. A132440, A074909.) (End)
The Bernoulli polynomials Ber_n(x) are related to the polynomials q_n(x) = p(n+1,x) / (n+1) with the e.g.f. [log(1+t)/t] e^(xt) (cf. s_n (x) above) as Ber_n(x) = St2_n[q.(St1.(x))], umbrally, or [St2]*[q]*[St1], in matrix form. Since q_n(x) is an Appell sequence of polynomials, q_n(x) = [log(1+D_x)/D_x]x^n. - Tom Copeland, Nov 06 2016

Extensions

Pincherle formalism added by Tom Copeland, Feb 27 2014

A058006 Alternating factorials: 0! - 1! + 2! - ... + (-1)^n n!

Original entry on oeis.org

1, 0, 2, -4, 20, -100, 620, -4420, 35900, -326980, 3301820, -36614980, 442386620, -5784634180, 81393657020, -1226280710980, 19696509177020, -335990918918980, 6066382786809020, -115578717622022980, 2317323290554617020, -48773618881154822980
Offset: 0

Views

Author

Henry Bottomley, Nov 13 2000

Keywords

Comments

From Harry Richman, Aug 13 2024: (Start)
Euler argued this sequence converges to 0.596347... (A073003 = Gompertz's constant); see Lagarias Section 2.5.
This sequence converges in the p-adic topology, for every prime number p. (End)

Examples

			a(5) = 0!-1!+2!-3!+4!-5! = 1-1+2-6+24-120 = -100.
G.f. = 1 + 2*x^2 - 4*x^3 + 20*x^4 - 100*x^5 + 620*x^6 - 4420*x^7 + 35900*x^8 + ...
		

Crossrefs

Cf. A000142, A003422, A005165, A153229 (absolute values), A136580.
Partial sums of A133942.

Programs

  • Haskell
    a058006 n = a058006_list !! n
    a058006_list = scanl1 (+) a133942_list
    -- Reinhard Zumkeller, Mar 02 2014
  • Mathematica
    a[ n_] := Sum[ (-1)^k k!, {k, 0, n}]; (* Michael Somos, Jan 28 2014 *)
  • PARI
    {a(n) = sum(k=0, n, (-1)^k * k!)}; /* Michael Somos, Jan 28 2014 */
    

Formula

a(n) = (-1)^n n! + a(n-1) = A005165(n)(-1)^n + 1.
a(n) = -(n-1)*a(n-1) + n*a(n-2), n>0.
E.g.f.: d/dx ((GAMMA(0,1)-GAMMA(0,1+x))*exp(1+x)). - Max Alekseyev, Jul 05 2010
G.f.: G(0)/(1-x), where G(k)= 1 - (2*k + 1)*x/( 1 - 2*x*(k+1)/(2*x*(k+1) - 1/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, May 24 2013
0 = a(n)*(-a(n+1) + a(n+3)) + a(n+1)*(2*a(n+1) - 2*a(n+2) -a(n+3)) + a(n+2)*(a(n+2)) if n>=-1. - Michael Somos, Jan 28 2014
a(n) = exp(1)*Gamma(0,1) + (-1)^n*exp(1)*(n+1)!*Gamma(-n-1,1), where Gamma(a,x) is the upper incomplete Gamma function. - Vladimir Reshetnikov, Oct 29 2015

Extensions

Corrections and more information from Michael Somos, Feb 19 2003

A269939 Triangle read by rows, Ward numbers T(n, k) = Sum_{m=0..k} (-1)^(m + k) * binomial(n + k, n + m) * Stirling2(n + m, m), for n >= 0, 0 <= k <= n.

Original entry on oeis.org

1, 0, 1, 0, 1, 3, 0, 1, 10, 15, 0, 1, 25, 105, 105, 0, 1, 56, 490, 1260, 945, 0, 1, 119, 1918, 9450, 17325, 10395, 0, 1, 246, 6825, 56980, 190575, 270270, 135135, 0, 1, 501, 22935, 302995, 1636635, 4099095, 4729725, 2027025
Offset: 0

Views

Author

Peter Luschny, Mar 26 2016

Keywords

Comments

We propose to call this sequence the 'Ward set numbers' and sequence A269940 the 'Ward cycle numbers'. - Peter Luschny, Nov 25 2022

Examples

			Triangle starts:
  1;
  0, 1;
  0, 1,   3;
  0, 1,  10,   15;
  0, 1,  25,  105,   105;
  0, 1,  56,  490,  1260,    945;
  0, 1, 119, 1918,  9450,  17325,  10395;
  0, 1, 246, 6825, 56980, 190575, 270270, 135135;
		

Crossrefs

Variants: A134991 (main entry for this triangle), A181996.
Row sums are A000311.
Alternating row sums are signed factorials A133942.
Cf. A269940 (Stirling1 counterpart), A268437.

Programs

  • Maple
    # first version
    A269939 := (n,k) -> add((-1)^(m+k)*binomial(n+k,n+m)*Stirling2(n+m, m), m=0..k):
    seq(seq(A269939(n,k), k=0..n), n=0..8);
    # Alternatively:
    T := proc(n,k) option remember;
        `if`(k=0 and n=0, 1,
        `if`(k<=0 or k>n, 0,
        k*T(n-1,k)+(n+k-1)*T(n-1,k-1))) end:
    for n from 0 to 6 do seq(T(n,k),k=0..n) od;
    # simple, third version
    T := (n,k)->  (n+k)!*coeftayl((exp(z)-z-1)^k/k!, z=0, n+k); # Marko Riedel, Apr 14 2016
  • Mathematica
    Table[Sum[(-1)^(m + k) Binomial[n + k, n + m] StirlingS2[n + m, m], {m, 0, k}], {n, 0, 8}, {k, 0, n}] // Flatten (* Michael De Vlieger, Apr 15 2016 *)
  • PARI
    T(n) = {[Vecrev(Pol(p)) | p<-Vec(serlaplace(1/((1+y)*(1 + lambertw(-y/(1+y)*exp((x-y)/(1+y) + O(x*x^n)))))))]}
    { my(A=T(8)); for(n=1, #A, print(A[n])) } \\ Andrew Howroyd, Jan 14 2022
  • Sage
    T = lambda n,k: sum((-1)^(m+k)*binomial(n+k,n+m)*stirling_number2(n+m,m) for m in (0..k))
    for n in (0..6): print([T(n,k) for k in (0..n)])
    
  • Sage
    # uses[PtransMatrix from A269941]
    PtransMatrix(8, lambda n: 1/(n+1), lambda n, k: (-1)^k*falling_factorial(n+k,n))
    

Formula

T(n,k) = (-1)^k*FF(n+k,n)*P[n,k](1/(n+1)) where P is the P-transform and FF the falling factorial function. For the definition of the P-transform see the link.
T(n,k) = A268437(n,k)*FF(n+k,n)/(2*n)!.
T(n,k) = (n+k)! [z^{n+k}] (exp(z)-z-1)^k/k!. - Marko Riedel, Apr 14 2016
From Fabián Pereyra, Jan 12 2022: (Start)
T(n,k) = k*T(n-1,k) + (n+k-1)*T(n-1,k-1) for n > 0, T(0,0) = 1, T(n,0) = 0 for n > 0. (See the second Maple program.)
E.g.f.: A(x,t) = 1/((1+t)*(1 + W(-t/(1+t)*exp((x-t)/(1+t))))), where W(x) is the Lambert W-function.
T(n,k) = Sum_{j=0..k} E2(n,j)*binomial(n-j,k-j), where E2(n,k) are the second-order Eulerian numbers A340556.
T(n,k) = Sum_{j=k..n} (-1)^(n-j)*A112486(n,j)*binomial(j,k). (End)

A008826 Triangle of coefficients from fractional iteration of e^x - 1.

Original entry on oeis.org

1, 1, 3, 1, 13, 18, 1, 50, 205, 180, 1, 201, 1865, 4245, 2700, 1, 875, 16674, 74165, 114345, 56700, 1, 4138, 155477, 1208830, 3394790, 3919860, 1587600, 1, 21145, 1542699, 19800165, 90265560, 182184030, 167310360, 57153600, 1, 115973, 16385857, 335976195, 2338275240, 7342024200, 11471572350, 8719666200, 2571912000
Offset: 2

Views

Author

N. J. A. Sloane, Mar 15 1996

Keywords

Comments

The triangle reflects the Jordan-decomposition of the matrix of Stirling numbers of the second kind. A display of the matrix formula can be found at the Helms link which also explains the generation rule for the A()-numbers in a different way. - Gottfried Helms Apr 19 2014
From Gus Wiseman, Jan 02 2020: (Start)
Also the number of balanced reduced multisystems with atoms {1..n} and depth k. A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem. For example, row n = 4 counts the following multisystems:
{1,2,3,4} {{1},{2,3,4}} {{{1}},{{2},{3,4}}}
{{1,2},{3,4}} {{{1},{2}},{{3,4}}}
{{1,2,3},{4}} {{{1},{2,3}},{{4}}}
{{1,2,4},{3}} {{{1,2}},{{3},{4}}}
{{1,3},{2,4}} {{{1,2},{3}},{{4}}}
{{1,3,4},{2}} {{{1},{2,4}},{{3}}}
{{1,4},{2,3}} {{{1,2},{4}},{{3}}}
{{1},{2},{3,4}} {{{1}},{{3},{2,4}}}
{{1},{2,3},{4}} {{{1},{3}},{{2,4}}}
{{1,2},{3},{4}} {{{1,3}},{{2},{4}}}
{{1},{2,4},{3}} {{{1,3},{2}},{{4}}}
{{1,3},{2},{4}} {{{1},{3,4}},{{2}}}
{{1,4},{2},{3}} {{{1,3},{4}},{{2}}}
{{{1}},{{4},{2,3}}}
{{{1},{4}},{{2,3}}}
{{{1,4}},{{2},{3}}}
{{{1,4},{2}},{{3}}}
{{{1,4},{3}},{{2}}}
(End)
From Harry Richman, Mar 30 2023: (Start)
Equivalently, T(n,k) is the number of length-k chains from minimum to maximum in the lattice of set partitions of {1..n} ordered by refinement. For example, row n = 4 counts the following chains, leaving out the minimum {1|2|3|4} and maximum {1234}:
(empty) {12|3|4} {12|3|4} < {123|4}
{13|2|4} {12|3|4} < {124|3}
{14|2|3} {12|3|4} < {12|34}
{1|23|4} {13|2|4} < {123|4}
{1|24|3} {13|2|4} < {134|2}
{1|2|34} {13|2|4} < {13|24}
{123|4} {14|2|3} < {124|3}
{124|3} {14|2|3} < {134|2}
{134|2} {14|2|3} < {14|23}
{1|234} {1|23|4} < {123|4}
{12|34} {1|23|4} < {1|234}
{13|24} {1|23|4} < {14|23}
{14|23} {1|24|3} < {124|3}
{1|24|3} < {1|234}
{1|24|3} < {13|24}
{1|2|34} < {134|2}
{1|2|34} < {1|234}
{1|2|34} < {12|34}
(End)
Also the number of cells of dimension k in the fine subdivision of the Bergman complex of the complete graph on n vertices. - Harry Richman, Mar 30 2023

Examples

			Triangle starts:
  1;
  1,    3;
  1,   13,     18;
  1,   50,    205,     180;
  1,  201,   1865,    4245,    2700;
  1,  875,  16674,   74165,  114345,   56700;
  1, 4138, 155477, 1208830, 3394790, 3919860, 1587600;
  ...
The f-vector of (the fine subdivision of) the Bergman complex of the complete graph K_3 is (1, 3). The f-vector of the Bergman complex of K_4 is (1, 13, 18). - _Harry Richman_, Mar 30 2023
		

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 148.

Crossrefs

Row sums are A005121.
Alternating row sums are signed factorials A133942(n-1).
Column k = 2 is A008827.
Diagonal k = n - 1 is A006472.
Diagonal k = n - 2 is A059355.
Row n equals row 2^n of A330727.

Programs

Formula

G.f. A(n;x) for n-th row satisfies A(n;x) = Sum_{k=0..n-1} Stirling2(n, k)*A(k;x)*x, A(1;x) = 1. - Vladeta Jovovic, Jan 02 2004
Sum_{k=1..n-1} (-1)^k*T(n,k) = (-1)^(n-1)*(n-1)! = A133942(n-1). - Geoffrey Critzer, Sep 06 2020

Extensions

More terms from Vladeta Jovovic, Jan 02 2004

A320962 a(n) = (-1)^(n-1)*(n-1)!*Sum_{i=0..n} Stirling2(n, i) if n > 0 and 0 otherwise.

Original entry on oeis.org

0, 1, -2, 10, -90, 1248, -24360, 631440, -20865600, 852647040, -42085008000, 2462394816000, -168193308729600, 13241729554099200, -1188734048799897600, 120563962753538304000, -13704613258628388096000, 1733764260005567741952000, -242606144946628642443264000
Offset: 0

Views

Author

Peter Luschny, Nov 07 2018

Keywords

Comments

Also the exponential limit as defined in A320956 of log(x + 1).

Examples

			Illustration of the convergence in the sense of A320956:
  [0] 0, 0,  0,  0,   0,    0,      0,      0,         0, ...
  [1] 0, 1, -1,  2,  -6,   24,   -120,    720,     -5040, ... A133942
  [2] 0, 1, -2,  8, -48,  384,  -3840,  46080,   -645120, ... A000165
  [3] 0, 1, -2, 10, -84,  984, -14640, 262800,  -5513760, ... A321398
  [4] 0, 1, -2, 10, -90, 1224, -22440, 514800, -14086800, ...
  [5] 0, 1, -2, 10, -90, 1248, -24240, 615600, -19378800, ...
  [6] 0, 1, -2, 10, -90, 1248, -24360, 630720, -20719440, ...
  [7] 0, 1, -2, 10, -90, 1248, -24360, 631440, -20860560, ...
  [8] 0, 1, -2, 10, -90, 1248, -24360, 631440, -20865600, ...
		

Crossrefs

Cf. A320956, A133942 (n=1), A000165 (n=2), A321398 (n=3).

Programs

  • Maple
    a := n -> `if`(n=0, 0, (-1)^(n-1)*(n-1)!*add(Stirling2(n, i), i=0..n)):
    seq(a(n), n=0..19);
    # Alternatively use the function ExpLim defined in A320956.
    ExpLim(19, x -> ln(x+1));
  • Mathematica
    a[n_] := If[n == 0, 0, (-1)^(n - 1)*(n - 1)!*Sum[StirlingS2[n, i], {i, 0, n}]]; Array[a, 19, 0] (* Amiram Eldar, Nov 07 2018 *)
  • PARI
    a(n) = if (n>0, (-1)^(n-1)*(n-1)!*sum(i=0, n, stirling(n, i, 2)), 0); \\ Michel Marcus, Nov 07 2018

A351429 Square array T(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of e.g.f. 1/(1 + f^k(x)), where f(x) = exp(x) - 1.

Original entry on oeis.org

1, 1, -1, 1, -1, 2, 1, -1, 1, -6, 1, -1, 0, -1, 24, 1, -1, -1, 1, 1, -120, 1, -1, -2, 0, 1, -1, 720, 1, -1, -3, -4, 6, -2, 1, -5040, 1, -1, -4, -11, -2, 32, -9, -1, 40320, 1, -1, -5, -21, -41, 76, 115, -9, 1, -362880, 1, -1, -6, -34, -129, -75, 953, 172, 50, -1, 3628800
Offset: 0

Views

Author

Seiichi Manyama, Feb 11 2022

Keywords

Examples

			Square array begins:
     1,  1,  1,   1,   1,    1,     1, ...
    -1, -1, -1,  -1,  -1,   -1,    -1, ...
     2,  1,  0,  -1,  -2,   -3,    -4, ...
    -6, -1,  1,   0,  -4,  -11,   -21, ...
    24,  1,  1,   6,  -2,  -41,  -129, ...
  -120, -1, -2,  32,  76,  -75,  -806, ...
   720,  1, -9, 115, 953, 1540, -3334, ...
		

Crossrefs

Columns k=0..5 give A133942, A033999, A000587, A130410, A351427, A351428.
Main diagonal gives A351433.

Programs

  • Maple
    A:= (n, k)-> n!*(g->coeff(series(1/(1+(g@@k)(x)), x, n+1), x, n))(x->exp(x)-1):
    seq(seq(A(n, d-n), n=0..d), d=0..10);  # Alois P. Heinz, Feb 11 2022
  • Mathematica
    T[n_, 0] := (-1)^n*n!; T[n_, k_] := T[n, k] = Sum[StirlingS2[n, j]*T[j, k - 1], {j, 0, n}]; Table[T[k, n - k], {n, 0, 10}, {k, 0, n}] // Flatten (* Amiram Eldar, Feb 11 2022 *)
  • PARI
    T(n, k) = if(k==0, (-1)^n*n!, sum(j=0, n, stirling(n, j, 2)*T(j, k-1)));

Formula

T(n,k) = Sum_{j=0..n} Stirling2(n,j) * T(j,k-1), k>1, T(n,0) = (-1)^n * n!.

A165457 a(n) = (2*n+1)!*(2*n+3)/3.

Original entry on oeis.org

1, 10, 280, 15120, 1330560, 172972800, 31135104000, 7410154752000, 2252687044608000, 851515702861824000, 391697223316439040000, 215433472824041472000000, 139600890389978873856000000
Offset: 0

Views

Author

Jaume Oliver Lafont, Sep 20 2009

Keywords

Crossrefs

Cf. A135003. [Jaume Oliver Lafont, Oct 03 2009]

Programs

  • GAP
    List([0..12],n->Factorial(2*n+1)*(2*n+3)/3); # Muniru A Asiru, Oct 21 2018
    
  • Magma
    [Factorial(2*n+1)*(2*n+3)/3: n in [0..30]]; // G. C. Greubel, Oct 20 2018
    
  • Maple
    seq(factorial(2*n+1)*(2*n+3)/3,n=0..12); # Muniru A Asiru, Oct 21 2018
  • Mathematica
    Table[(2*n + 1)!*(2*n + 3)/3, {n, 0, 30}] (* G. C. Greubel, Oct 20 2018 *)
  • PARI
    a(n)=(2*n+1)!*(2*n+3)/3
    
  • Python
    import math
    for n in range(0, 12): print(int(math.factorial(2*n+1)*(2*n+3)/3), end=', ') # Stefano Spezia, Oct 21 2018

Formula

a(n) = 2*n*(2*n+3)*a(n-1).
Sum_{k>=0} 1/a(k) = 3/e = A135003.
G.f.: 3F0(1,1,5/2;;4x). - R. J. Mathar, Oct 15 2009
Sum_{k>=0} (-1)^k/a(k) = 3*(sin(1)-cos(1)) = (-3)*A143624. - Amiram Eldar, Apr 12 2021

Extensions

frac keyword removed by Jaume Oliver Lafont, Nov 02 2009

A176740 Inversion of e.g.f. formal power series. Partition array in Abramowitz-Stegun (A-St) order.

Original entry on oeis.org

-1, -1, 3, -1, 10, -15, -1, 15, 10, -105, 105, -1, 21, 35, -210, -280, 1260, -945, -1, 28, 56, 35, -378, -1260, -280, 3150, 6300, -17325, 10395, -1, 36, 84, 126, -630, -2520, -1575, -2100, 6930, 34650, 15400, -51975, -138600, 270270, -135135, -1, 45, 120, 210, 126, -990, -4620, -6930, -4620, -5775
Offset: 0

Views

Author

Wolfdieter Lang, Jul 14 2010

Keywords

Comments

Compare with A134685 which uses a different order with fewer entries.
For the inversion (aka reversion) of o.g.f. formal power series see A111785, and also A133437.
The sequence of row lengths of this array is p(n)=A000041(n) (number of partitions of n).
The unsigned triangle, with entries for like parts number m summed, is A134991 (2-associated Stirling numers of the second kind).
The row sums are A133942(n) = ((-1)^n) * n!, and the row sums of the unsigned array give A000311(n+1) (Schroeder's fourth problem). These sums coincide with those of the triangle A134991.
The signed a(n,k) numbers, k=1,...,p(n)=A000041(n), derive from the multinomial M_3 numbers A036040 (see also the W. Lang link there), namely, if the k-th partition of n in A-St order has exponents (enk[1],...,enk[n]) then a(n,k) = ((-1)^m)*M3(n+m, (ehatnk[1],...,ehatnk[n+m])) with m the number of parts, i.e., m:=Sum_{j=1..n} enk[j], and M3(n+m, (ehatnk[1],...,ehatnk[n+m])):=(n+m)!/(Product_{j=1..n+m} j!^ehatnk[j]*ehatnk[j]!), where the n+m exponents ehatnk are ehatnk[1]:=0, (ehatnk[2],...,ehatnk[n+1]) := (enk[1],...,enk[n]), and (ehatnk[n+1],...,ehatnk[n+m]):=(0,...,0) (i.e., m-1 zeros).
The compositional inverse of the formal power series of the e.g.f. type g(x) = Sum_{j>=1} g[j]*(x^j)/j! is f = g^[-1] with f(y) = Sum_{n>=1} f[n]*(y^n)/n!, and f[n] = fhat[n]/g[1]^(2*n-1) with fhat[1]=1 (f[1] = 1/g[1]) and f[n+1] = Sum_{k=1..p(n)} a(n,k)*g(n,k), n >= 1, where p(n) = A000041(n) (number of partitions of n), and g(n,k) is the monomial in coefficients of g(x) corresponding to the k-th partition of 2*n with n parts in A-St order. For details and a remark on the Faa di Bruno Hopf algebra see the W. Lang link.

Examples

			  -1;
  -1,  3;
  -1, 10, -15;
  -1, 15,  10, -105,  105;
  -1, 21,  35, -210, -280, 1260, -945;
...
a(4,4): 4th partition of 4 has exponents (2,1,0,0) with m=3, and the derived exponents ehatm are (0,2,1,0,0,0,0) with one leading and 2 extra trailing zeros. (4+3)!/(2!^2*2!*3!^1*1!) = 105, hence a(4,4) = ((-1)^3)*105 = -105.
fhat[4] = -1*g[1]^2*g[4] +10*g[1]*g[2]*g[3] - 15*g[2]^3 (n=3: 3 parts partitions of 6 for the g-monomials in A-St order).
		

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. 831-2.
  • R. Aldrovandi, Special Matrices of Mathematical Physics, World Scientific, 2001, p. 175, eq. (13.84).
  • Ch. A. Charalambides, Enumerative Combinatorics, Chapman &Hall/CRC, 2002, p. 437, eq. (11.43) with p. 428. eq. (11.29).

Formula

See the fhat[n] formula explained above, and the W. Lang link for more details.
Showing 1-10 of 22 results. Next