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-3 of 3 results.

A075513 Triangle read by rows. T(n, m) are the coefficients of Sidi polynomials.

Original entry on oeis.org

1, -1, 2, 1, -8, 9, -1, 24, -81, 64, 1, -64, 486, -1024, 625, -1, 160, -2430, 10240, -15625, 7776, 1, -384, 10935, -81920, 234375, -279936, 117649, -1, 896, -45927, 573440, -2734375, 5878656, -5764801, 2097152, 1, -2048, 183708, -3670016, 27343750, -94058496, 161414428, -134217728, 43046721
Offset: 1

Views

Author

Wolfdieter Lang, Oct 02 2002

Keywords

Comments

Coefficients of the Sidi polynomials (-1)^(n-1)*D_{n-1,1,n-1}(x), for n >=1, where D_{k,n,m}(z) is given in Theorem 4.2., p. 862, of Sidi [1980].
The row polynomials p(n, x) := Sum_{m=0..n-1} a(n, m)x^m, n >= 1, are obtained from ((Eu(x)^n)*(x-1)^n)/(n*x), where Eu(x) := xd/dx is the Euler-derivative with respect to x.
The row polynomials p(n, y) := Sum_{m=0..n-1} a(n, m)*y^m, n >= 1, are also obtained from ((d^m/dx^m)((exp(x)-1)^m)/m)/exp(x) after replacement of exp(x) by y. Here (d^m/dx^m)f(x), m >= 1, denotes m-fold differentiation of f(x) with respect to x.
b(k,m,n) := (Sum_{p=0..m-1} (a(m, p)*((p+1)*k)^n))/(m-1)!, n >= 0, has g.f. 1/Product_{p=1..m} (1 - k*p*x) for k = 1, 2,... and m = 1, 2,...
The (signed) row sums give A000142(n-1), n >= 1, (factorials) and (unsigned) A074932(n).
The (unsigned) columns give A000012 (powers of 1), 2*A001787(n+1), (3^2)*A027472(n), (4^3)*A038846(n-1), (5^4)*A036071(n-5), (6^5)*A036084(n-6), (7^6)*A036226(n-7), (8^7)*A053107(n-8) for m=0..7.
Right edge of triangle is A000169. - Michel Marcus, May 17 2013

Examples

			The triangle T(n, m)  begins:
  n\m 0     1      2        3        4         5         6          7       8
  1:  1
  2: -1     2
  3:  1    -8      9
  4: -1    24    -81       64
  5:  1   -64    486    -1024      625
  6: -1   160  -2430    10240   -15625      7776
  7:  1  -384  10935   -81920   234375   -279936    117649
  8: -1   896 -45927   573440 -2734375   5878656  -5764801    2097152
  9:  1 -2048 183708 -3670016 27343750 -94058496 161414428 -134217728 4304672
  [Reformatted by _Wolfdieter Lang_, Oct 12 2022]
-----------------------------------------------------------------------------
p(2,x) = -1+2*x = (1/(2*x))*x*(d/dx)*x*(d/dx)*(x-1)^2.
		

References

  • A. Sidi, Practical Extrapolation Methods: Theory and Applications, Cambridge University Press, Cambridge, 2003.

Crossrefs

Programs

  • Maple
    # Assuming offset 0.
    seq(seq((-1)^(n-k)*binomial(n, k)*(k+1)^n, k=0..n), n=0..8);
    # Alternative:
    egf := x -> 1/(exp(LambertW(-exp(-x)*x*y) + x) - x*y):
    ser := x -> series(egf(x), x, 12):
    row := n -> seq(coeff(n!*coeff(ser(x), x, n), y, k), k=0..n):
    seq(print(row(n)), n = 0..8); # Peter Luschny, Oct 21 2022
  • Mathematica
    p[n_, x_] := p[n, x] = Nest[ x*D[#, x]& , (x-1)^n, n]/(n*x); a[n_, m_] := Coefficient[ p[n, x], x, m]; Table[a[n, m], {n, 1, 9}, {m, 0, n-1}] // Flatten (* Jean-François Alcover, Jul 03 2013 *)
  • PARI
    tabl(nn) = {for (n=1, nn, for (m=0, n-1, print1((-1)^(n-m-1)*binomial(n-1, m)*(m+1)^(n-1), ", ");); print(););} \\ Michel Marcus, May 17 2013

Formula

T(n, m) = ((-1)^(n-m-1)) binomial(n-1, m)*(m+1)^(n-1), n >= m+1 >= 1, else 0.
G.f. for m-th column: ((m+1)^m)(x/(1+(m+1)*x))^(m+1), m >= 0.
E.g.f.: -LambertW(-x*y*exp(-x))/((1+LambertW(-x*y*exp(-x)))*x*y). - Vladeta Jovovic, Feb 13 2008 [corrected for offset 0 <= m <= n. For offset n >= 1 take the integral over x. - Wolfdieter Lang, Oct 12 2022]
T(n, k) = S(n, k+1) / n where S(, ) is triangle in A258773. - Michael Somos, May 13 2018
E.g.f. of column k, with offset n >= 0: exp(-(k + 1)*x)*((k + 1)*x)^k/k!. - Wolfdieter Lang, Oct 20 2022
E.g.f: 1/(exp(LambertW(-exp(-x)*x*y) + x) - x*y) assuming offset = 0. - Peter Luschny, Oct 21 2022

A075498 Stirling2 triangle with scaled diagonals (powers of 3).

Original entry on oeis.org

1, 3, 1, 9, 9, 1, 27, 63, 18, 1, 81, 405, 225, 30, 1, 243, 2511, 2430, 585, 45, 1, 729, 15309, 24381, 9450, 1260, 63, 1, 2187, 92583, 234738, 137781, 28350, 2394, 84, 1, 6561, 557685, 2205225, 1888110, 563031, 71442, 4158, 108, 1
Offset: 1

Views

Author

Wolfdieter Lang, Oct 02 2002

Keywords

Comments

This is a lower triangular infinite matrix of the Jabotinsky type. See the D. E. Knuth reference given in A039692 for exponential convolution arrays.
The row polynomials p(n,x) := Sum_{m=1..n} a(n,m)x^m, n >= 1, have e.g.f. J(x; z)= exp((exp(3*z) - 1)*x/3) - 1.
Subtriangle of the triangle given by (0, 3, 0, 6, 0, 9, 0, 12, 0, 15, 0, ...) DELTA (1, 0, 1, 0, 1, 0, 1, 0, 1, 0, ...) where DELTA is the operator defined in A084938, see example. - Philippe Deléham, Feb 13 2013
Also the Bell transform of A000244. For the definition of the Bell transform see A264428. - Peter Luschny, Jan 26 2016

Examples

			[1]; [3,1]; [9,9,1]; ...; p(3,x) = x*(9 + 9*x + x^2).
From _Philippe Deléham_, Feb 13 2013: (Start)
Triangle (0, 3, 0, 6, 0, 9, 0, 12, 0, 15, 0, ...) DELTA (1, 0, 1, 0, 1, 0, 1, 0, ...) begins:
  1;
  0,   1;
  0,   3,   1;
  0,   9,   9,   1;
  0,  27,  63,  18,   1;
  0,  81, 405, 225,  30,   1;
(End)
		

Crossrefs

Columns 1-7 are A000244, A016137, A017933, A028085, A075515, A075516, A075906. Row sums are A004212.

Programs

  • Maple
    # The function BellMatrix is defined in A264428.
    # Adds (1, 0, 0, 0, ..) as column 0.
    BellMatrix(n -> 3^n, 9); # Peter Luschny, Jan 26 2016
  • Mathematica
    Flatten[Table[3^(n - m) StirlingS2[n, m], {n, 11}, {m, n}]] (* Indranil Ghosh, Mar 25 2017 *)
    rows = 9;
    t = Table[3^n, {n, 0, rows}];
    T[n_, k_] := BellY[n, k, t];
    Table[T[n, k], {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jun 22 2018, after Peter Luschny *)
  • PARI
    for(n=1, 11, for(m=1, n, print1(3^(n - m) * stirling(n, m, 2),", ");); print();) \\ Indranil Ghosh, Mar 25 2017

Formula

a(n, m) = (3^(n-m)) * stirling2(n, m).
a(n, m) = (Sum_{p=0..m-1} A075513(m, p)*((p+1)*3)^(n-m))/(m-1)! for n >= m >= 1, else 0.
a(n, m) = 3*m*a(n-1, m) + a(n-1, m-1), n >= m >= 1, else 0, with a(n, 0) := 0 and a(1, 1)=1.
G.f. for m-th column: (x^m)/Product_{k=1..m}(1-3*k*x), m >= 1.
E.g.f. for m-th column: (((exp(3*x)-1)/3)^m)/m!, m >= 1.
From Peter Bala, Jan 13 2018: (Start)
Dobinski-type formulas for row polynomials R(n,x):
R(n,x) = exp(-x/3)*Sum_{i >= 0} (3*i)^n* (x/3)^i/i!;
R(n+1,x) = x*exp(-x/3)*Sum_{i >= 0} (3 + 3*i)^n* (x/3)^i/i!.
R(n+1,x) = x*Sum_{k = 0..n} binomial(n,k)*3^(n-k)*R(k,x).(End)

A075516 Sixth column of triangle A075498.

Original entry on oeis.org

1, 63, 2394, 71442, 1848987, 43615341, 964942308, 20385709344, 416206043253, 8280505692459, 161494678323342, 3101091077181006, 58823743379417199, 1104995938593100617, 20595841868175915096
Offset: 0

Views

Author

Wolfdieter Lang, Oct 02 2002

Keywords

Comments

The e.g.f. given below is Sum_{m=0..5} A075513(6,m)*exp(3*(m+1)*x)/5!.

Crossrefs

Formula

a(n) = A075498(n+6, 6) = (3^n)*S2(n+6, 6) with S2(n, m) := A008277(n, m) (Stirling2).
a(n) = Sum_{m=0..5} A075513(6, m)*((m+1)*3)^n/5!.
G.f.: 1/Product_{k=1..6} (1 - 3*k*x).
E.g.f.: (d^6/dx^6)(((exp(3*x)-1)/3)^6)/6! = (-exp(3*x) + 160*exp(6*x) - 2430*exp(9*x) + 10240*exp(12*x) - 15625*exp(15*x) + 7776*exp(18*x))/5!.
Showing 1-3 of 3 results.