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

A378289 Square array T(n,k), n >= 0, k >= 0, read by antidiagonals downwards, where T(n,0) = 0^n and T(n,k) = k * Sum_{r=0..n} binomial(n+r+k,r) * binomial(r,n-r)/(n+r+k) for k > 0.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 3, 0, 1, 3, 7, 10, 0, 1, 4, 12, 26, 38, 0, 1, 5, 18, 49, 105, 154, 0, 1, 6, 25, 80, 210, 444, 654, 0, 1, 7, 33, 120, 363, 927, 1944, 2871, 0, 1, 8, 42, 170, 575, 1672, 4191, 8734, 12925, 0, 1, 9, 52, 231, 858, 2761, 7810, 19305, 40040, 59345, 0
Offset: 0

Views

Author

Seiichi Manyama, Nov 21 2024

Keywords

Examples

			Square array begins:
  1,   1,    1,    1,    1,     1,     1, ...
  0,   1,    2,    3,    4,     5,     6, ...
  0,   3,    7,   12,   18,    25,    33, ...
  0,  10,   26,   49,   80,   120,   170, ...
  0,  38,  105,  210,  363,   575,   858, ...
  0, 154,  444,  927, 1672,  2761,  4290, ...
  0, 654, 1944, 4191, 7810, 13325, 21385, ...
		

Crossrefs

Columns k=0..3 give A000007, A001002, A052706(n+2), A052703(n+3).

Programs

  • PARI
    T(n, k, t=2, u=1) = if(k==0, 0^n, k*sum(r=0, n, binomial(t*r+u*(n-r)+k, r)*binomial(r, n-r)/(t*r+u*(n-r)+k)));
    matrix(7, 7, n, k, T(n-1, k-1))

Formula

G.f. A_k(x) of column k satisfies A_k(x) = ( 1 + x * A_k(x)^(2/k) * (1 + x * A_k(x)^(1/k)) )^k for k > 0.
G.f. of column k: B(x)^k where B(x) is the g.f. of A001002.
B(x)^k = B(x)^(k-1) + x * B(x)^(k+1) + x^2 * B(x)^(k+2). So T(n,k) = T(n,k-1) + T(n-1,k+1) + T(n-2,k+2) for n > 1.

A052730 A simple context-free grammar in a labeled universe.

Original entry on oeis.org

0, 0, 0, 6, 72, 1440, 35280, 1058400, 37376640, 1520830080, 70053984000, 3603888288000, 204806714112000, 12742502111539200, 861483843034214400, 62887137880799232000, 4929809613351727104000, 413044721987184967680000
Offset: 0

Views

Author

encyclopedia(AT)pommard.inria.fr, Jan 25 2000

Keywords

Programs

  • Maple
    spec := [S,{C=Prod(B,B),B=Union(S,Z,C),S=Prod(B,C)},labeled]: seq(combstruct[count](spec,size=n), n=0..20);

Formula

E.g.f.: RootOf(-_Z+_Z^2+_Z^3+x)-RootOf(-_Z+_Z^2+_Z^3+x)^2-x
D-finite Recurrence: {a(1)=0, a(2)=0, a(3)=6, a(4)=72, (-105*n+135*n^3+30)*a(n) +(-130-107*n+29*n^2)*a(n+1) +(-99-91*n)*a(n+2) +15*a(n+3)=0.
a(n) = n!*A052703(n). - R. J. Mathar, Oct 18 2013
Showing 1-2 of 2 results.