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.

A357583 Triangle read by rows. Convolution triangle of the Bell numbers.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 0, 5, 4, 1, 0, 15, 14, 6, 1, 0, 52, 50, 27, 8, 1, 0, 203, 189, 113, 44, 10, 1, 0, 877, 764, 471, 212, 65, 12, 1, 0, 4140, 3311, 2013, 974, 355, 90, 14, 1, 0, 21147, 15378, 8951, 4440, 1790, 550, 119, 16, 1, 0, 115975, 76418, 41745, 20526, 8727, 3027, 805, 152, 18, 1
Offset: 0

Views

Author

Peter Luschny, Oct 05 2022

Keywords

Examples

			Triangle T(n, k) starts:
  [0] 1;
  [1] 0,     1;
  [2] 0,     2,     1;
  [3] 0,     5,     4,    1;
  [4] 0,    15,    14,    6,    1;
  [5] 0,    52,    50,   27,    8,    1;
  [6] 0,   203,   189,  113,   44,   10,   1;
  [7] 0,   877,   764,  471,  212,   65,  12,   1;
  [8] 0,  4140,  3311, 2013,  974,  355,  90,  14,  1;
  [9] 0, 21147, 15378, 8951, 4440, 1790, 550, 119, 16, 1;
		

Crossrefs

Cf. A000110, A129247 (row sums), A007311, A357584 (central terms).

Programs

  • Maple
    # Using function PMatrix from A357368.
    PMatrix(10, combinat[bell]);

Formula

Conjecture: row polynomials are x*R(n,1) for n > 0 where R(n,k) = R(n-1,k+1) + x*R(n-1,1)*R(1,k) for n > 1, k > 0 with R(1,k) = Bell(k) for k > 0. The same recursion seems to work for self-convolution of any other sequence. - Mikhail Kurkov, Apr 05 2025

A154381 Row sums of Bell related number triangle A154380.

Original entry on oeis.org

1, 2, 6, 20, 72, 276, 1120, 4804, 21796, 104784, 534788, 2901580, 16742440, 102654356, 667519492, 4590552960, 33278208004, 253436345340, 2020974497112, 16823488830836, 145798111066964, 1312272490908464
Offset: 0

Views

Author

Paul Barry, Jan 08 2009

Keywords

Comments

a(n) = 2*A129247(n), n>0. Hankel transform is 2^n*A000178(n).

Crossrefs

Formula

G.f.: 1/(1-2x/(1-x/(1-x/(1-2x/(1-x/(1-3x/(1-x/(1-4x/(1-... (continued fraction).

A335849 a(0) = 1; a(n) = Sum_{k=1..n} binomial(n,k) * Bell(k-1) * a(n-k).

Original entry on oeis.org

1, 1, 3, 14, 87, 675, 6282, 68201, 846183, 11811048, 183176577, 3124958179, 58157682072, 1172551946395, 25459025908899, 592263131497942, 14696581853565723, 387477880784385143, 10816856730117090114, 318739828787430822853, 9886623306152849028771
Offset: 0

Views

Author

Ilya Gutkovskiy, Jun 26 2020

Keywords

Crossrefs

Programs

  • Mathematica
    a[0] = 1; a[n_] := a[n] = Sum[Binomial[n, k] BellB[k - 1] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 20}]
    nmax = 20; CoefficientList[Series[Exp[1]/(Exp[1] + ExpIntegralEi[1] - ExpIntegralEi[Exp[x]]), {x, 0, nmax}], x] Range[0, nmax]!

Formula

E.g.f.: exp(1) / (exp(1) + Ei(1) - Ei(exp(x))), where Ei() is the exponential integral.
Showing 1-3 of 3 results.