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.

Previous Showing 11-20 of 24 results. Next

A350112 Triangle read by rows: T(n,k) is the number of tilings of an (n+k)-board using k (1,4)-fences and n-k squares.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 2, 0, 1, 3, 6, 10, 9, 4, 0, 0, 1, 4, 10, 16, 16, 8, 0, 0, 0, 1, 5, 14, 25, 28, 16, 0, 0, 0, 0, 1, 6, 19, 38, 48, 32, 16, 8, 4, 2, 1, 1, 7, 25, 56, 80, 80, 60, 40, 25, 15, 3, 0, 1, 8, 32, 80, 136, 166, 157, 128, 95, 40, 9, 0, 0
Offset: 0

Views

Author

Michael A. Allen, Dec 22 2021

Keywords

Comments

This is the m=5 member in the sequence of triangles A007318, A059259, A350110, A350111, A350112 which give the number of tilings of an (n+k) X 1 board using k (1,m-1)-fences and n-k unit square tiles. A (1,g)-fence is composed of two unit square tiles separated by a gap of width g.
It is also the m=5, t=2 member of a two-parameter family of triangles such that T(n,k) is the number of tilings of an (n+(t-1)*k) X 1 board using k (1,m-1;t)-combs and n-k unit square tiles. A (1,g;t)-comb is composed of a line of t unit square tiles separated from each other by gaps of width g.
T(5*j+r-k,k) is the coefficient of x^k in (f(j,x))^(5-r)*(f(j+1,x))^r for r=0,1,2,3,4 where f(n,x) is one form of a Fibonacci polynomial defined by f(n+1,x)=f(n,x)+x*f(n-1,x) where f(0,x)=1 and f(n<0,x)=0.
T(n+5-k,k) is the number of subsets of {1,2,...,n} of size k such that no two elements in a subset differ by 5.
Sum of (5j+r)-th antidiagonal (counting initial 1 as the 0th) is f(j)^(5-r)*f(j+1)^r where j=0,1,..., r=0,1,2,3,4, and f(n) is the Fibonacci number A000045(n+1).

Examples

			Triangle begins:
  1;
  1,   0;
  1,   0,   0;
  1,   0,   0,   0;
  1,   0,   0,   0,   0;
  1,   1,   1,   1,   1,   1;
  1,   2,   3,   4,   5,   2,   0;
  1,   3,   6,  10,   9,   4,   0,   0;
  1,   4,  10,  16,  16,   8,   0,   0,   0;
  1,   5,  14,  25,  28,  16,   0,   0,   0,   0;
  1,   6,  19,  38,  48,  32,  16,   8,   4,   2,   1;
  1,   7,  25,  56,  80,  80,  60,  40,  25,  15,   3,   0;
  1,   8,  32,  80, 136, 166, 157, 128,  95,  40,   9,   0,   0;
  1,   9,  40, 112, 217, 309, 346, 330, 223, 105,  27,   0,   0,   0;
		

Crossrefs

Other members of the two-parameter family of triangles: A007318 (m=1,t=2), A059259 (m=2,t=2), A350110 (m=3,t=2), A350111 (m=4,t=2), A354665 (m=2,t=3), A354666 (m=2,t=4), A354667 (m=2,t=5), A354668 (m=3,t=3).
Other triangles related to tiling using fences: A123521, A157897, A335964.

Programs

  • Mathematica
    f[n_]:=If[n<0,0,f[n-1]+x*f[n-2]+KroneckerDelta[n,0]];
    T[n_, k_]:=Module[{j=Floor[(n+k)/5], r=Mod[n+k,5]},
      Coefficient[f[j]^(5-r)*f[j+1]^r,x,k]];
    Flatten@Table[T[n,k], {n, 0, 13}, {k, 0, n}]

Formula

T(n,0) = 1.
T(n,n) = delta(n mod 5,0).
T(n,1) = n-4 for n>3.
T(5*j-r,5*j-p) = 0 for j>0, p=1,2,3,4, and r=1,...,p.
T(5*(j-1)+p,5*(j-1)) = T(5*j,5*j-p) = j^p for j>0 and p=0,1,...,5.
T(5*j+1,5*j-1) = 5*j(j+1)/2 for j>0.
T(5*j+2,5*j-2) = 5*C(j+2,4) + 10*C(j+1,2)^2 for j>1.
T(n,k) = T(n-1,k) + T(n-1,k-1) for n >= 4*k+1 if k >= 0.

A354665 Triangle read by rows, T(n,k) = T(n-1,k) + T(n-1,k-1) - T(n-2,k-1) + T(n-2,k-2) + T(n-3,k-1) - T(n-3,k-3) + delta(n,0)*delta(k,0) - delta(n,1)*delta(k,1), T(n

Original entry on oeis.org

1, 1, 0, 1, 0, 1, 1, 1, 2, 0, 1, 2, 4, 0, 1, 1, 3, 6, 3, 3, 0, 1, 4, 9, 8, 9, 0, 1, 1, 5, 13, 17, 18, 6, 4, 0, 1, 6, 18, 30, 36, 20, 16, 0, 1, 1, 7, 24, 48, 66, 55, 40, 10, 5, 0, 1, 8, 31, 72, 114, 120, 100, 40, 25, 0, 1, 1, 9, 39, 103, 186
Offset: 0

Views

Author

Michael A. Allen, Jun 04 2022

Keywords

Comments

This is the m=2, t=3 member of a two-parameter family of triangles such that T(n,k) is the number of tilings of an (n+(t-1)*k) X 1 board using k (1,m-1;t)-combs and n-k unit square tiles. A (1,g;t)-comb is composed of a line of t unit square tiles separated from each other by gaps of width g.
T(2*j+r-2*k,k) is the coefficient of x^k in (f(j,x))^(2-r)*(f(j+1,x))^r for r=0,1, where f(n,x) is a Narayana's cows polynomial defined by f(n,x)=f(n-1,x)+x*f(n-3,x)+delta(n,0) where f(n<0,x)=0.
T(n+4-2*k,k) is the number of subsets of {1,2,...,n} of size k such that no two elements in a subset differ by 2 or 4.

Examples

			Triangle begins:
  1;
  1,   0;
  1,   0,   1;
  1,   1,   2,   0;
  1,   2,   4,   0,   1;
  1,   3,   6,   3,   3,   0;
  1,   4,   9,   8,   9,   0,   1;
  1,   5,  13,  17,  18,   6,   4,   0;
  1,   6,  18,  30,  36,  20,  16,   0,   1;
  1,   7,  24,  48,  66,  55,  40,  10,   5,   0;
  1,   8,  31,  72, 114, 120, 100,  40,  25,   0,   1;
  1,   9,  39, 103, 186, 234, 221, 135,  75,  15,   6,   0;
...
		

Crossrefs

Row sums are A011782.
Sums over k of T(n-2*k,k) are A224809.
Other members of the family of triangles: A007318 (m=1,t=2), A059259 (m=2,t=2), A350110 (m=3,t=2), A350111 (m=4,t=2), A350112 (m=5,t=2), A354666 (m=2,t=4), A354667 (m=2,t=5), A354668 (m=3,t=3).
Other triangles related to tiling using combs: A059259, A123521, A157897, A335964.

Programs

  • Mathematica
    T[n_, k_]:=If[k<0 || n
    				

Formula

T(n,0) = 1.
T(n,n) = delta(n mod 2,0).
T(n,1) = n-2 for n>1.
T(2*j-r,2*j-1) = 0 for j>0, r=0,1.
T(2*(j-1)+p,2*(j-1)) = j^p for j>0 and p=0,1,2.
T(2*(j-1)+3,2*(j-1)) = j^2*(j+1)/2 for j>0.
T(2*j+p,2*j-p) = C(j+1,2)^p for j>0 and p=0,1,2.
G.f. of row sums: (1-x)/(1-2*x).
G.f. of sums of T(n-2*k,k) over k: (1-x^3)/((1-x-x^3)*(1+x^4-x^6)).
T(n,k) = T(n-1,k) + T(n-1,k-1) for n>=2*k+1 if k>=0.

A354666 Triangle read by rows, T(n,k) = T(n-1,k) + T(n-2,k-1) + 2*T(n-2,k-2) - T(n-3,k-1) - T(n-3,k-2) + T(n-4,k-1) + T(n-4,k-2) - T(n-4,k-3) - T(n-4,k-4) + delta(n,0)*delta(k,0) - delta(n,2)*(delta(k,1) + delta(k,2)), T(n

Original entry on oeis.org

1, 1, 0, 1, 0, 1, 1, 0, 2, 0, 1, 1, 4, 0, 1, 1, 2, 6, 0, 3, 0, 1, 3, 9, 4, 9, 0, 1, 1, 4, 12, 10, 18, 0, 4, 0, 1, 5, 16, 21, 36, 10, 16, 0, 1, 1, 6, 21, 36, 60, 30, 40, 0, 5, 0, 1, 7, 27, 57, 100, 81, 100, 20, 25, 0, 1, 1, 8, 34, 84, 158, 168
Offset: 0

Views

Author

Michael A. Allen, Jun 04 2022

Keywords

Comments

This is the m=2, t=4 member of a two-parameter family of triangles such that T(n,k) is the number of tilings of an (n+(t-1)*k) X 1 board using k (1,m-1;t)-combs and n-k unit square tiles. A (1,g;t)-comb is composed of a line of t unit square tiles separated from each other by gaps of width g.
T(2*j+r-3*k,k) is the coefficient of x^k in (f(j,x))^(2-r)*(f(j+1,x))^r for r=0,1, where f(n,x) is a (1,4)-bonacci polynomial defined by f(n,x)=f(n-1,x)+x*f(n-4,x)+delta(n,0) where f(n<0,x)=0.
T(n+6-3*k,k) is the number of subsets of {1,2,...,n} of size k such that no two elements in a subset differ by 2, 4, or 6.

Examples

			Triangle begins:
  1;
  1,   0;
  1,   0,   1;
  1,   0,   2,   0;
  1,   1,   4,   0,   1;
  1,   2,   6,   0,   3,   0;
  1,   3,   9,   4,   9,   0,   1;
  1,   4,  12,  10,  18,   0,   4,   0;
  1,   5,  16,  21,  36,  10,  16,   0,   1;
  1,   6,  21,  36,  60,  30,  40,   0,   5,   0;
  1,   7,  27,  57, 100,  81, 100,  20,  25,   0,   1;
  1,   8,  34,  84, 158, 168, 200,  70,  75,   0,   6,   0;
  1,   9,  42, 118, 243, 322, 400, 231, 225,  35,  36,   0,   1;
...
		

Crossrefs

Row sums are A099163.
Sums over k of T(n-3*k,k) are A224808.
Other members of the family of triangles: A007318 (m=1,t=2), A059259 (m=2,t=2), A350110 (m=3,t=2), A350111 (m=4,t=2), A350112 (m=5,t=2), A354665 (m=2,t=3), A354667 (m=2,t=5), A354668 (m=3,t=3).
Other triangles related to tiling using combs: A059259, A123521, A157897, A335964.

Programs

  • Mathematica
    T[n_,k_]:=If[k<0 || n
    				

Formula

T(n,0) = 1.
T(n,n) = delta(n mod 2,0).
T(n,1) = n-3 for n>2.
T(2*j-r,2*j-1) = 0 for j>0, r=-1,0,1.
T(2*(j-1)+p,2*(j-1)) = j^p for j>0 and p=0,1,2.
T(2*j+p,2*(j-1)) = j^2*((j+1)/2)^p for j>0 and p=1,2.
T(2*j+3,2*(j-1)) = (j*(j+1))^2*(j+2)/12 for j>0.
T(2*(j+p),2*j-p) = C(j+2,3)^p for j>0 and p=0,1,2.
G.f. of row sums: (1-2*x^2)/(1-x-3*x^2+2*x^3).
G.f. of sums of T(n-3*k,k) over k: (1-x^5-x^8)/(1-x-x^5+x^6-x^7-2*x^8+x^9-x^10+x^13+x^16).
T(n,k) = T(n-1,k) + T(n-1,k-1) for n>=3*k+1 if k>=0.

A354667 Triangle read by rows: T(n,k) is the number of tilings of an (n+4*k) X 1 board using k (1,1;5)-combs and n-k squares.

Original entry on oeis.org

1, 1, 0, 1, 0, 1, 1, 0, 2, 0, 1, 0, 4, 0, 1, 1, 1, 6, 0, 3, 0, 1, 2, 9, 0, 9, 0, 1, 1, 3, 12, 5, 18, 0, 4, 0, 1, 4, 16, 12, 36, 0, 16, 0, 1, 1, 5, 20, 25, 60, 15, 40, 0, 5, 0, 1, 6, 25, 42, 100, 42, 100, 0, 25, 0, 1, 1, 7, 31, 66, 150, 112, 200
Offset: 0

Views

Author

Michael A. Allen, Jun 05 2022

Keywords

Comments

This is the m=2, t=5 member of a two-parameter family of triangles such that T(n,k) is the number of tilings of an (n+(t-1)*k) X 1 board using k (1,m-1;t)-combs and n-k unit square tiles. A (1,g;t)-comb is composed of a line of t unit square tiles separated from each other by gaps of width g.
T(2*j+r-4*k,k) is the coefficient of x^k in (f(j,x))^(2-r)*(f(j+1,x))^r for r=0,1, where f(n,x) is a (1,5)-bonacci polynomial defined by f(n,x)=f(n-1,x)+x*f(n-5,x)+delta(n,0) where f(n<0,x)=0.
T(n+8-4*k,k) is the number of subsets of {1,2,...,n} of size k such that no two elements in a subset differ by 2, 4, 6, or 8.

Examples

			Triangle begins:
  1;
  1,   0;
  1,   0,   1;
  1,   0,   2,   0;
  1,   0,   4,   0,   1;
  1,   1,   6,   0,   3,   0;
  1,   2,   9,   0,   9,   0,   1;
  1,   3,  12,   5,  18,   0,   4,   0;
  1,   4,  16,  12,  36,   0,  16,   0,   1;
  1,   5,  20,  25,  60,  15,  40,   0,   5,   0;
  1,   6,  25,  42, 100,  42, 100,   0,  25,   0,   1;
  1,   7,  31,  66, 150, 112, 200,  35,  75,   0,   6,   0;
...
		

Crossrefs

Row sums are A005578.
Sums over k of T(n-4*k,k) are A224811.
Other members of the family of triangles: A007318 (m=1,t=2), A059259 (m=2,t=2), A350110 (m=3,t=2), A350111 (m=4,t=2), A350112 (m=5,t=2), A354665 (m=2,t=3), A354666 (m=2,t=4), A354668 (m=3,t=3).
Other triangles related to tiling using combs: A059259, A123521, A157897, A335964.

Programs

  • Mathematica
    T[n_,k_]:=If[k<0 || n
    				

Formula

T(n,k) = T(n-1,k) + T(n-1,k-1) - T(n-2,k-1) + 2*T(n-2,k-2) + T(n-3,k-1) - T(n-3,k-2) - 2*T(n-3,k-3) - T(n-4,k-1) + T(n-4,k-2) + T(n-4,k-3) - T(n-4,k-4) + T(n-5,k-1) - 2*T(n-5,k-3) + T(n-5,k-5) + delta(n,0)*delta(k,0) - delta(n,1)*delta(k,1) - delta(n,2)*delta(k,2) - delta(n,3)*(delta(k,1) - delta(k,3)) with T(n,k<0) = T(n
T(n,0) = 1.
T(n,n) = delta(n mod 2,0).
T(n,1) = n-4 for n>3.
T(2*j+r,2*j-1) = 0 for j>0, r=-1,0,1,2.
T(n,2*j) = C(n/2,j)^2 for j>0 and n even and 2*j <= n <= 2*j+8.
T(n,2*j) = C((n-1)/2,j)*C((n+1)/2,j) for j>0 and n odd and 2*j < n < 2*j+8.
T(2*j+3*p,2*j-p) = C(j+3,4)^p for j>0 and p=0,1,2.
G.f. of row sums: (1-x-x^2)/(1-2*x-x^2+2*x^3).
G.f. of sums of T(n-4*k,k) over k: (1-x^5-x^7-x^10+x^15)/(1-x-x^5+x^6-x^7+x^8-x^9-2*x^10+x^11-x^12+2*x^15-x^16+2*x^17+x^20-x^25).
T(n,k) = T(n-1,k) + T(n-1,k-1) for n>=4*k+1 if k>=0.

A354668 Triangle read by rows: T(n,k) is the number of tilings of an (n+2*k) X 1 board using k (1,2;3)-combs and n-k squares.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 2, 0, 1, 1, 3, 4, 0, 0, 1, 2, 5, 8, 0, 0, 1, 1, 3, 8, 12, 0, 3, 3, 0, 1, 4, 12, 18, 9, 12, 9, 0, 0, 1, 5, 16, 27, 25, 29, 27, 0, 0, 1, 1, 6, 21, 42, 51, 66, 54, 0, 6, 4, 0, 1, 7, 27, 62, 95, 135, 108, 36
Offset: 0

Author

Michael A. Allen, Jul 30 2022

Keywords

Comments

This is the m=3, t=3 member of a two-parameter family of triangles such that T(n,k) is the number of tilings of an (n+(t-1)*k) X 1 board using k (1,m-1;t)-combs and n-k unit square tiles. A (1,g;t)-comb is composed of a line of t unit square tiles separated from each other by gaps of width g.
T(3*j+r-2*k,k) is the coefficient of x^k in (f(j,x))^(3-r)*(f(j+1,x))^r for r=0,1, where f(n,x) is a Narayana's cows polynomial defined by f(n,x)=f(n-1,x)+x*f(n-3,x)+delta(n,0) where f(n<0,x)=0.
T(n+6-2*k,k) is the number of subsets of {1,2,...,n} of size k such that no two elements in a subset differ by 3 or 6.

Examples

			Triangle begins:
  1;
  1,   0;
  1,   0,   0;
  1,   0,   0,   1;
  1,   0,   1,   2,   0;
  1,   1,   3,   4,   0,   0;
  1,   2,   5,   8,   0,   0,   1;
  1,   3,   8,  12,   0,   3,   3,   0;
  1,   4,  12,  18,   9,  12,   9,   0,   0;
  1,   5,  16,  27,  25,  29,  27,   0,   0,   1;
  1,   6,  21,  42,  51,  66,  54,   0,   6,   4,   0;
  1,   7,  27,  62,  95, 135, 108,  36,  30,  16,   0,   0;
...
		

Crossrefs

Sums over k of T(n-2*k,k) are A224810.
Other members of the family of triangles: A007318 (m=1,t=2), A059259 (m=2,t=2), A350110 (m=3,t=2), A350111 (m=4,t=2), A350112 (m=5,t=2), A354665 (m=2,t=3), A354666 (m=2,t=4), A354667 (m=2,t=5).
Other triangles related to tiling using combs: A059259, A123521, A157897, A335964.

Programs

  • Mathematica
    f[n_]:=If[n<0, 0, f[n-1]+x*f[n-3]+KroneckerDelta[n,0]]; T[n_, k_]:=Module[{j=Floor[(n+2*k)/3], r=Mod[n+2*k,3]}, Coefficient[f[j]^(3-r)*f[j+1]^r, x, k]]; Flatten@Table[T[n,k], {n, 0, 11}, {k, 0, n}]

Formula

T(n,0) = 1.
T(n,n) = delta(n mod 3,0).
T(n,1) = n-4 for n>3.
T(3*j-r,3*j-p) = 0 for j>0, p=1,2, and r=1-p,...,p.
T(n,2*j) = C(n/2,j)^2 for j>0 and n even and 2*j <= n <= 2*j+8.
T(n,2*j) = C((n-1)/2,j)*C((n+1)/2,j) for j>0 and n odd and 2*j < n < 2*j+8.
T(2*j+3*p,2*j-p) = C(j+3,4)^p for j>0 and p=0,1,2.
G.f. of sums of T(n-2*k,k) over k: (1+x^3-x^4-x^5+x^6-2*x^7-x^8-x^9-2*x^10-x^12-x^13-x^15)/((1-x)*(1+x+x^2)*(1-x-x^3)*(1+3*x^3+7*x^6+9*x^9+7*x^12+3*x^15+x^18)).
T(n,k) = T(n-1,k) + T(n-1,k-1) for n>=4*k+1 if k>=0.

A080242 Table of coefficients of polynomials P(n,x) defined by the relation P(n,x) = (1+x)*P(n-1,x) + (-x)^(n+1).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 1, 3, 4, 2, 1, 1, 4, 7, 6, 3, 1, 5, 11, 13, 9, 3, 1, 1, 6, 16, 24, 22, 12, 4, 1, 7, 22, 40, 46, 34, 16, 4, 1, 1, 8, 29, 62, 86, 80, 50, 20, 5, 1, 9, 37, 91, 148, 166, 130, 70, 25, 5, 1, 1, 10, 46, 128, 239, 314, 296, 200, 95
Offset: 0

Author

Paul Barry, Feb 12 2003

Keywords

Comments

Values generate solutions to the recurrence a(n) = a(n-1) + k(k+1)* a(n-2), a(0)=1, a(1) = k(k+1)+1. Values and sequences associated with this table are included in A072024.

Examples

			Rows are {1}, {1,1,1}, {1,2,2}, {1,3,4,2,1}, {1,4,7,6,3}, ... This is the same as table A035317 with an extra 1 at the end of every second row.
Triangle begins
  1;
  1,  1,  1;
  1,  2,  2;
  1,  3,  4,  2,  1;
  1,  4,  7,  6,  3;
  1,  5, 11, 13,  9,  3,  1;
  1,  6, 16, 24, 22, 12,  4;
  1,  7, 22, 40, 46, 34, 16,  4,  1;
  1,  8, 29, 62, 86, 80, 50, 20,  5;
		

Crossrefs

Similar to the triangles A059259, A035317, A108561, A112555. Cf. A059260.
Cf. A001045 (row sums).

Programs

  • Mathematica
    Table[CoefficientList[Series[((1+x)^(n+2) -(-1)^n*x^(n+2))/(1+2*x), {x, 0, n+2}], x], {n, 0, 10}]//Flatten (* G. C. Greubel, Feb 18 2019 *)

Formula

Rows are generated by P(n,x) = ((x+1)^(n+2) - (-x)^(n+2))/(2*x+1).
The polynomials P(n,-x), n > 0, satisfy a Riemann hypothesis: their zeros lie on the vertical line Re x = 1/2 in the complex plane.
O.g.f.: (1+x*t+x^2*t)/((1+x*t)(1-t-x*t)) = 1 + (1+x+x^2)*t + (1+2x+2x^2)*t^2 + ... . - Peter Bala, Oct 24 2007
T(n,k) = if(k<=2*floor((n+1)/2), Sum_{j=0..floor((n+1)/2)} binomial(n-2j,k-2j), 0). - Paul Barry, Apr 08 2011 (This formula produces the odd numbered rows correctly, but not the even. - G. C. Greubel, Feb 22 2019)

A243201 Odd octagonal numbers indexed by triangular numbers.

Original entry on oeis.org

1, 21, 133, 481, 1281, 2821, 5461, 9633, 15841, 24661, 36741, 52801, 73633, 100101, 133141, 173761, 223041, 282133, 352261, 434721, 530881, 642181, 770133, 916321, 1082401, 1270101, 1481221, 1717633, 1981281, 2274181, 2598421, 2956161, 3349633, 3781141, 4253061, 4767841, 5328001
Offset: 0

Author

Mathew Englander, Jun 01 2014

Keywords

Examples

			a(2) = 133 because the second triangular number is 3 and third odd octagonal number is 133.
a(3) = 481 because the third triangular number is 6 and the sixth odd octagonal number is 481.
a(4) = 1281 because the fourth triangular number is 10 and the tenth odd octagonal number is 1281.
		

Crossrefs

Row 5 of A059259 (coefficients of 1 + 4*n + 7*n^2 + 6*n^3 + 3*n^4 + 0*n^5 which is a formula for the within sequence).
Column 5 of A081297.
Column 6 of A072024.
Diagonal T(n + 1, n) of A219069, n > 0.

Programs

  • Magma
    [3*n^4+6*n^3+7*n^2+4*n+1: n in [0..40]]; // Bruno Berselli, Jun 03 2014
    
  • Mathematica
    Table[((3 n^2 + 3 n + 2)^2 - 1)/3, {n, 0, 39}] (* Alonso del Arte, Jun 01 2014 *)
  • Sage
    [3*n^4+6*n^3+7*n^2+4*n+1 for n in (0..40)] # Bruno Berselli, Jun 03 2014

Formula

a(n) = 3*n^4 + 6*n^3 + 7*n^2 + 4*n + 1.
a(n) = (n^2 + n + 1)*(3*n^2 + 3*n + 1).
a(n) = ((3*n^2 + 3*n + 2)^2 - 1)/3.
a(n) = A003215(n) * A002061(n + 1).
a(n) = A022522(n) / A005408(n).
a(n) = A000567(n^2 + n + 1).
a(n) = A014641((n^2 + n)/2).
a(n) = 1 + A140676(n^2 + n).
a(n) = 1 + A187156((n^2 + n + 4)/2) (empirical).
G.f.: (1 + 16*x + 38*x^2 + 16*x^3 + x^4)/(1 - x)^5. - Bruno Berselli, Jun 03 2014
E.g.f.: exp(x)*(1 + 20*x + 46*x^2 + 24*x^3 + 3*x^4). - Stefano Spezia, Apr 16 2022

A349841 Triangle T(n,k) built by placing all ones on the left edge, [1,0,0,0,0] repeated on the right edge, and filling the body using the Pascal recurrence T(n,k) = T(n-1,k) + T(n-1,k-1).

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 3, 3, 1, 0, 1, 4, 6, 4, 1, 1, 1, 5, 10, 10, 5, 2, 0, 1, 6, 15, 20, 15, 7, 2, 0, 1, 7, 21, 35, 35, 22, 9, 2, 0, 1, 8, 28, 56, 70, 57, 31, 11, 2, 0, 1, 9, 36, 84, 126, 127, 88, 42, 13, 2, 1
Offset: 0

Author

Michael A. Allen, Dec 13 2021

Keywords

Comments

This is the m=5 member in the sequence of triangles A007318, A059259, A118923, A349839, A349841 which have all ones on the left side, ones separated by m-1 zeros on the other side, and whose interiors obey Pascal's recurrence.
T(n,k) is the (n,n-k)-th entry of the (1/(1-x^5),x/(1-x)) Riordan array.
For n>0, T(n,n-1) = A002266(n+4).
For n>1, T(n,n-2) = A008732(n-2).
For n>2, T(n,n-3) = A122047(n-1).
Sums of rows give A349842.
Sums of antidiagonals give A349843.

Examples

			Triangle begins:
  1;
  1,   0;
  1,   1,   0;
  1,   2,   1,   0;
  1,   3,   3,   1,   0;
  1,   4,   6,   4,   1,   1;
  1,   5,  10,  10,   5,   2,   0;
  1,   6,  15,  20,  15,   7,   2,   0;
  1,   7,  21,  35,  35,  22,   9,   2,   0;
  1,   8,  28,  56,  70,  57,  31,  11,   2,   0;
  1,   9,  36,  84, 126, 127,  88,  42,  13,   2,   1;
		

Crossrefs

Other members of sequence of triangles: A007318, A059259, A118923, A349839.

Programs

  • Mathematica
    Flatten[Table[CoefficientList[Series[(1 - x*y)/((1 - (x*y)^5)(1 - x - x*y)), {x, 0, 20}, {y, 0, 10}], {x, y}][[n+1,k+1]],{n,0,10},{k,0,n}]]

Formula

G.f.: (1-x*y)/((1-(x*y)^5)(1-x-x*y)) in the sense that T(n,k) is the coefficient of x^n*y^k in the series expansion of the g.f.
T(n,0) = 1.
T(n,n) = delta(n mod 5,0).
T(n,1) = n-1 for n>0.
T(n,2) = (n-1)*(n-2)/2 for n>1.
T(n,3) = (n-1)*(n-2)*(n-3)/6 for n>2.
T(n,4) = (n-1)*(n-2)*(n-3)*(n-4)/24 for n>3.
T(n,5) = C(n-1,5) + 1 for n>4.
T(n,6) = C(n-1,6) + n - 6 for n>5.
For 0 <= k < n, T(n,k) = (n-k)*Sum_{j=0..floor(k/5)} binomial(n-5*j,n-k)/(n-5*j).
The g.f. of the n-th subdiagonal is 1/((1-x^5)(1-x)^n).

A118923 Triangle T(n,k) built by placing T(n,0)=A000012(n) in the left edge, T(n,n)=A079978(n) on the right edge and filling the body with the Pascal recurrence T(n,k) = T(n-1,k) + T(n-1,k-1).

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 1, 1, 1, 3, 3, 2, 0, 1, 4, 6, 5, 2, 0, 1, 5, 10, 11, 7, 2, 1, 1, 6, 15, 21, 18, 9, 3, 0, 1, 7, 21, 36, 39, 27, 12, 3, 0, 1, 8, 28, 57, 75, 66, 39, 15, 3, 1, 1, 9, 36, 85, 132, 141, 105, 54, 18, 4, 0, 1, 10, 45, 121, 217, 273, 246, 159, 72, 22, 4, 0, 1, 11, 55, 166
Offset: 0

Author

Alford Arnold, May 05 2006

Keywords

Comments

The fourth diagonal is 1, 2, 5, 11, 21, ..., which is 1 + A000292. The fifth diagonal is 0, 2, 7, 18, 39, 75, 132, 217, 338, 504, 725, 1012, ..., which is A051743.
The array A007318 is generated by placing A000012 on both edges with the same Pascal-like recurrence, and the array A059259 uses edges defined by A000012 and A059841. - R. J. Mathar, Jan 21 2008
From Michael A. Allen, Nov 30 2021: (Start)
T(n,n-k) is the (n,k)-th entry of the (1/(1-x^3), x/(1-x)) Riordan array.
Sums of rows give A077947.
Sums of antidiagonals give A079962. (End)

Examples

			The table begins
  1
  1  0
  1  1  0
  1  2  1  1
  1  3  3  2  0
  1  4  6  5  2  0
  1  5 10 11  7  2  1
  1  6 15 21 18  9  3  0
		

Crossrefs

Programs

  • Maple
    A000012 := proc(n) 1 ; end: A079978 := proc(n) if n mod 3 = 0 then 1; else 0 ; fi ; end: A118923 := proc(n,k) if k = 0 then A000012(n); elif k = n then A079978(n) ; else A118923(n-1,k)+A118923(n-1,k-1) ; fi ; end: for n from 0 to 15 do for k from 0 to n do printf("%d, ",A118923(n,k)) ; od: od: # R. J. Mathar, Jan 21 2008
  • Mathematica
    Flatten@Table[CoefficientList[Series[1/((1 + x*y + x^2*y^2)(1 - x - x*y)), {x, 0, 23}, {y, 0, 11}], {x, y}][[n + 1, k + 1]], {n, 0, 11}, {k, 0, n}] (* Michael A. Allen, Nov 30 2021 *)

Formula

From Michael A. Allen, Nov 30 2021: (Start)
For 0 <= k < n, T(n,k) = (n-k)*Sum_{j=0..floor(k/3)} binomial(n-3*j,n-k)/(n-3*j).
G.f.: 1/((1+x*y+(x*y)^2)*(1-x-x*y)). (End)

Extensions

Edited and extended by R. J. Mathar, Jan 21 2008
Offset changed by Michael A. Allen, Nov 30 2021

A220074 Triangle read by rows giving coefficients T(n,k) of [x^(n-k)] in Sum_{i=0..n} (x-1)^i, 0 <= n <= k.

Original entry on oeis.org

1, 1, 0, 1, -1, 1, 1, -2, 2, 0, 1, -3, 4, -2, 1, 1, -4, 7, -6, 3, 0, 1, -5, 11, -13, 9, -3, 1, 1, -6, 16, -24, 22, -12, 4, 0, 1, -7, 22, -40, 46, -34, 16, -4, 1, 1, -8, 29, -62, 86, -80, 50, -20, 5, 0, 1, -9, 37, -91, 148, -166, 130, -70, 25, -5, 1
Offset: 0

Author

Mokhtar Mohamed, Dec 03 2012

Keywords

Comments

If the triangle is viewed as a square array S(m, k) = T(m+k, k), 0 <= m, 0 <= k, its first row is (1,0,1,0,1,...) with e.g.f. cosh(x), g.f. 1/(1-x^2) and subsequent rows have g.f. 1/((1+x)^n*(1-x^2)) (substitute x for -x in g.f. for A059259).
By column, S(m, k) is the coefficient of [x^m] in the generating function Sum_{i=0..k} (-1)^i/(1-x)^(i+1).
This is a rational generating function down column k with a power of (1-x) in the denominator; therefore column k is a polynomial in m respectively n. - Mathew Englander, May 14 2014
Column k multiplied by k! seems to correspond to row k of A054651, considered as a polynomial and then evaluated on the negative integers. For example, row 5 of A054651 represents the polynomial x^5 - 5*x^4 + 25*x^3 + 5*x^2 + 94*x + 120. Evaluating that for x = -1, x = -2, x = -3, ... gives (0, -360, -1440, -4080, -9600, -19920, -37680, ...) which is 5! times column 5 of this triangle. - Mathew Englander, May 23 2014
This triangle provides a solution to a question in the mathematics of gambling. For 0 < p < 1 and positive integers N and G with N < G, suppose you begin with N dollars and make repeated wagers, each time winning 1 dollar with probability p and losing 1 dollar with probability 1-p. You continue betting 1 dollar at a time until you have either G dollars (your Goal) or 0 (bankrupt). What is the probability of reaching your Goal before going bankrupt, as a function of p, N, and G? (This is a type of one-dimensional random walk.) Answer: Let Q_m_(x) be the polynomial whose coefficients are given by row m-1 of the triangle (e.g., Q_6_(x) = 1 - 4x + 7x^2 - 6x^3 + 3x^4). Then, the probability of reaching G dollars before going bankrupt is p^(G-N)*Q_N_(p)/Q_G_(p). - Mathew Englander, May 23 2014
From Paul Curtz, Mar 17 2017: (Start)
Consider the triangle Ja(n+1,k) (here, but generally Ja(n,k)) composed of the triangle a(n) prepended with a column of 0's, i.e.,
0;
0, 1;
0, 1, 0;
0, 1, -1, 1;
0, 1, -2, 2, 0;
0, 1, -3, 4, -2, 1;
0, 1, -4, 7, -6, 3, 0;
0, 1, -5, 11, -13, 9, -3, 1;
... .
The row sums are 0, 1, 1, ... = A057427(n), the most elementary autosequence of the first kind (a sequence of the first kind has 0's as main diagonal of its array of successive differences).
The row sums of the absolute values are A001045(n).
Ja applied to a sequence written in its reluctant form yields an autosequence of the first kind. Example: the reluctant form of A001045(n) is 0, 0, 1, 0, 1, 1, 0, 1, 1, 3, 0, 1, 1, 3, 5, ... = Jl.
Jl multiplied by Ja gives the triangle Jal:
0;
0, 1;
0, 1, 0;
0, 1, -1, 3;
0, 1, -2, 6, 0;
0, 1, -3, 12, -10, 11;
0, 1, -4, 21, -30, 33, 0;
0, 1, -5, 33, -65, 99, -63, 43;
... .
The row sums are A001045(n). (End)

Examples

			Triangle begins:
  1;
  1,   0;
  1,  -1,   1;
  1,  -2,   2,    0;
  1,  -3,   4,   -2,    1;
  1,  -4,   7,   -6,    3,    0;
  1,  -5,  11,  -13,    9,   -3,    1;
  1,  -6,  16,  -24,   22,  -12,    4,    0;
  1,  -7,  22,  -40,   46,  -34,   16,   -4,   1;
  1,  -8,  29,  -62,   86,  -80,   50,  -20,   5,   0;
  1,  -9,  37,  -91,  148, -166,  130,  -70,  25,  -5, 1;
  1, -10,  46, -128,  239, -314,  296, -200,  95, -30, 6, 0;
  ...
		

Crossrefs

Similar to the triangles A080242, A108561, A112555, A071920.
Cf. A000124 (column 2), A003600 (column 3), A223718 (column 4, conjectured), A257890 (column 5).

Programs

  • GAP
    Flat(List([0..12], n-> List([0..n], k-> Sum([0..k], j-> (-1)^j*Binomial(n-k+j, j))))); # G. C. Greubel, Feb 18 2019
  • Magma
    [[(&+[(-1)^j*Binomial(n-k+j, j): j in [0..k]]): k in [0..n]]: n in [0..12]]; // G. C. Greubel, Feb 18 2019
    
  • Maple
    A059259A := proc(n,k)
        1/(1+y)/(1-x-y) ;
        coeftayl(%,x=0,n) ;
        coeftayl(%,y=0,k) ;
    end proc:
    A059259 := proc(n,k)
        A059259A(n-k,k) ;
    end proc:
    A220074 := proc(i,j)
        (-1)^j*A059259(i,j) ;
    end proc: # R. J. Mathar, May 14 2014
  • Mathematica
    Table[Sum[(-1)^i*Binomial[n-k+i,i], {i, 0, k}], {n, 0, 12}, {k, 0, n} ]//Flatten (* Michael De Vlieger, Jan 27 2016 *)
  • PARI
    {T(n,k) = sum(j=0,k, (-1)^j*binomial(n-k+j,j))};
    for(n=0,12, for(k=0,n, print1(T(n,k), ", "))) \\ G. C. Greubel, Feb 18 2019
    
  • Sage
    [[sum((-1)^j*binomial(n-k+j,j) for j in (0..k)) for k in (0..n)] for n in (0..12)] # G. C. Greubel, Feb 18 2019
    

Formula

Sum_{k=0..n} T(n,k) = 1.
T(n,k) = Sum_{i=0..k} (-1)^i*binomial(n-k+i, i).
T(2*n,n) = (-1)^n*A026641(n).
T(n,k) = (-1)^k*A059259(n,k).
T(n,0) = 1, T(n,n) = (1+(-1)^n)/2, and T(n,k) = T(n-1,k) - T(n-1,k-1) for 0 < k < n. - Mathew Englander, May 24 2014

Extensions

Definition and comments clarified by Li-yao Xia, May 15 2014
Previous Showing 11-20 of 24 results. Next