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.

A075497 Stirling2 triangle with scaled diagonals (powers of 2).

Original entry on oeis.org

1, 2, 1, 4, 6, 1, 8, 28, 12, 1, 16, 120, 100, 20, 1, 32, 496, 720, 260, 30, 1, 64, 2016, 4816, 2800, 560, 42, 1, 128, 8128, 30912, 27216, 8400, 1064, 56, 1, 256, 32640, 193600, 248640, 111216, 21168, 1848, 72, 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(2*z) - 1)*x/2) - 1.
Subtriangle of (0, 2, 0, 4, 0, 6, 0, 8, 0, 10, 0, 12, ...) DELTA (1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, ...) where DELTA is the operator defined in A084938. - Philippe Deléham, Feb 13 2013
Also the inverse Bell transform of the double factorial of even numbers Product_ {k=0..n-1} (2*k+2) (A000165). For the definition of the Bell transform see A264428 and for cross-references A265604. - Peter Luschny, Dec 31 2015
This is the exponential Riordan array [exp(2*x), (exp(2*x) - 1)/2] belonging to the derivative subgroup of the exponential Riordan group. In the notation of Corcino, this is the triangle of (2, 2)-Stirling numbers of the second kind. A factorization of the array as an infinite product is given in the example section. - Peter Bala, Feb 20 2025

Examples

			Triangle begins:
  [1];
  [2,1];
  [4,6,1]; p(3,x) = x*(4 + 6*x + x^2).
  ...;
Triangle (0, 2, 0, 4, 0, 6, 0, 8, ...) DELTA (1, 0, 1, 0, 1, 0, 1, 0, ...) begins:
  1
  0,  1
  0,  2,   1
  0,  4,   6,   1
  0,  8,  28,  12,  1
  0, 16, 120, 100, 20, 1. - _Philippe Deléham_, Feb 13 2013
From _Peter Bala_, Feb 23 2025: (Start)
The array factorizes as
/ 1               \       /1             \ /1             \ /1            \
| 2    1           |     | 2   1          ||0  1           ||0  1          |
| 4    6   1       |  =  | 4   4   1      ||0  2   1       ||0  0  1       | ...
| 8   28  12   1   |     | 8  12   6  1   ||0  4   4  1    ||0  0  2  1    |
|16  120 100  20  1|     |16  32  24  8  1||0  8  12  6  1 ||0  0  4  4  1 |
|...               |     |...             ||...            ||...           |
where, in the infinite product on the right-hand side, the first array is the Riordan array (1/(1 - 2*x), x/(1 - 2*x)) = P^2, where P denotes Pascal's triangle. See A038207. Cf. A143494. (End)
		

Crossrefs

Row sums are A004211.

Programs

  • Maple
    with(combinat):
    b:= proc(n, i) option remember; expand(`if`(n=0, 1,
           `if`(i<1, 0, add(x^j*multinomial(n, n-i*j, i$j)/j!*add(
            binomial(i, 2*k), k=0..i/2)^j*b(n-i*j, i-1), j=0..n/i))))
        end:
    T:= n-> (p-> seq(coeff(p, x, i), i=1..n))(b(n$2)):
    seq(T(n), n=1..12);  # Alois P. Heinz, Aug 13 2015
    # Alternatively, giving the triangle in the form displayed in the Example section:
    gf := exp(x*exp(z)*sinh(z)):
    X := n -> series(gf, z, n+2):
    Z := n -> n!*expand(simplify(coeff(X(n), z, n))):
    A075497_row := n -> op(PolynomialTools:-CoefficientList(Z(n), x)):
    seq(A075497_row(n), n=0..9); # Peter Luschny, Jan 14 2018
  • Mathematica
    Table[(2^(n - m)) StirlingS2[n, m], {n, 9}, {m, n}] // Flatten (* Michael De Vlieger, Dec 31 2015 *)
  • PARI
    for(n=1, 11, for(m=1, n, print1(2^(n - m) * stirling(n, m, 2),", ");); print();) \\ Indranil Ghosh, Mar 25 2017
  • Sage
    # uses[inverse_bell_transform from A265605]
    multifact_2_2 = lambda n: prod(2*k + 2 for k in (0..n-1))
    inverse_bell_matrix(multifact_2_2, 9) # Peter Luschny, Dec 31 2015
    

Formula

a(n, m) = (2^(n-m)) * Stirling2(n, m).
a(n, m) = (Sum_{p=0..m-1} A075513(m, p)*((p+1)*2)^(n-m))/(m-1)! for n >= m >= 1, else 0.
a(n, m) = 2*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-2*k*x), m >= 1.
E.g.f. for m-th column: (((exp(2*x)-1)/2)^m)/m!, m >= 1.
The row polynomials in t are given by D^n(exp(x*t)) evaluated at x = 0, where D is the operator (1+2*x)*d/dx. Cf. A008277. - Peter Bala, Nov 25 2011
From Peter Bala, Jan 13 2018: (Start)
n-th row polynomial R(n,x)= x o x o ... o x (n factors), where o is the deformed Hadamard product of power series defined in Bala, section 3.1.
R(n+1,x)/x = (x + 2) o (x + 2) o...o (x + 2) (n factors).
R(n+1,x) = x*Sum_{k = 0..n} binomial(n,k)*2^(n-k)*R(k,x).
Dobinski-type formulas: R(n,x) = exp(-x/2)*Sum_{i >= 0} (2*i)^n* (x/2)^i/i!; 1/x*R(n+1,x) = exp(-x/2)*Sum_{i >= 0} (2 + 2*i)^n* (x/2)^i/i!. (End)

A075504 Stirling2 triangle with scaled diagonals (powers of 9).

Original entry on oeis.org

1, 9, 1, 81, 27, 1, 729, 567, 54, 1, 6561, 10935, 2025, 90, 1, 59049, 203391, 65610, 5265, 135, 1, 531441, 3720087, 1974861, 255150, 11340, 189, 1, 4782969, 67493007, 57041334, 11160261, 765450, 21546, 252, 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 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(9*z) - 1)*x/9) - 1.
Row sums give A075508(n), n >= 1. The columns (without leading zeros) give A001019 (powers of 9), A076008-A076013 for m=1..7.

Examples

			[1]; [9,1]; [81,27,1]; ...; p(3,x) = x(81 + 27*x + x^2).
From _Andrew Howroyd_, Mar 25 2017: (Start)
Triangle starts
*       1
*       9        1
*      81       27        1
*     729      567       54        1
*    6561    10935     2025       90      1
*   59049   203391    65610     5265    135     1
*  531441  3720087  1974861   255150  11340   189   1
* 4782969 67493007 57041334 11160261 765450 21546 252 1
(End)
		

Crossrefs

Columns 2-7 are A076008-A076013.

Programs

  • Mathematica
    Flatten[Table[9^(n - m) StirlingS2[n, m], {n, 11}, {m, n}]] (* Indranil Ghosh, Mar 25 2017 *)
  • PARI
    for(n=1, 11, for(m=1, n, print1(9^(n - m) * stirling(n, m, 2),", ");); print();) \\ Indranil Ghosh, Mar 25 2017

Formula

a(n, m) = (9^(n-m)) * stirling2(n, m).
a(n, m) = Sum_{p=0..m-1} (A075513(m, p)*((p+1)*9)^(n-m))/(m-1)! for n >= m >= 1, else 0.
a(n, m) = 9m*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-9k*x), m >= 1.
E.g.f. for m-th column: (((exp(9x) - 1)/9)^m)/m!, m >= 1.

A075509 Shifts one place left under 10th-order binomial transform.

Original entry on oeis.org

1, 1, 11, 131, 1761, 27601, 506651, 10674211, 251686881, 6524202561, 183991725451, 5605930566051, 183428104316161, 6409252239788881, 237948848526923611, 9346097294356706051, 386966245108218203201, 16836505067572362863361, 767645305770283165781131
Offset: 0

Views

Author

Wolfdieter Lang, Oct 02 2002

Keywords

Comments

Previous name was: a(n) are row sums of triangle A075505 (for n>=1).

Crossrefs

Shifts one place left under k-th order binomial transform, k=1..10: A000110, A004211, A004212, A004213, A005011, A005012, A075506, A075507, A075508, A075509.

Programs

Formula

a(n) = Sum_{m=0..n} 10^(n-m)*S2(n,m) with S2(n,m) = A048993(n,m) (Stirling2).
E.g.f.: exp((exp(10*x)-1)/10).
O.g.f.: Sum_{k>=0} x^k/Product_{j=1..k} (1 - 10*j*x). - Ilya Gutkovskiy, Mar 21 2018
a(n) ~ 10^n * n^n * exp(n/LambertW(10*n) - 1/10 - n) / (sqrt(1 + LambertW(10*n)) * LambertW(10*n)^n). - Vaclav Kotesovec, Jul 15 2021

Extensions

a(0)=1 inserted and new name by Vladimir Reshetnikov, Oct 20 2015
Showing 1-3 of 3 results.