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 637 results. Next

A201730 Triangle T(n,k), read by rows, given by (2,1/2,3/2,0,0,0,0,0,0,0,...) DELTA (0,1/2,-1/2,0,0,0,0,0,0,0,...) where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 2, 0, 5, 1, 0, 14, 6, 0, 0, 41, 26, 1, 0, 0, 122, 100, 10, 0, 0, 0, 365, 363, 63, 1, 0, 0, 0, 1094, 1274, 322, 14, 0, 0, 0, 0, 3281, 4372, 1462, 116, 1, 0, 0, 0, 0, 9842, 14760, 6156, 744, 18, 0, 0, 0, 0, 0
Offset: 0

Views

Author

Philippe Deléham, Dec 04 2011

Keywords

Comments

Riordan array ((1-2x)/(1-4x+3x^2),x^2/(1-4x+3x^2)).
A007318*A201701 as lower triangular matrices.

Examples

			Triangle begins:
1
2, 0
5, 1, 0
14, 6, 0, 0
41, 26, 1, 0, 0
122, 100, 10, 0, 0, 0
365, 363, 63, 1, 0, 0, 0
		

Crossrefs

Cf. A007051 (1st column), A261064 (2nd column).

Programs

  • Maple
    A201730 := proc(n,k)
        (1-2*x)/(1-4*x+(3-y)*x^2) ;
        coeftayl(%,y=0,k) ;
        coeftayl(%,x=0,n) ;
    end proc:
    seq(seq(A201730(n,k),k=0..n),n=0..12) ; # R. J. Mathar, Dec 06 2011
  • Mathematica
    m = 13;
    (* DELTA is defined in A084938 *)
    DELTA[Join[{2, 1/2, 3/2}, Table[0, {m}]], Join[{0, 1/2, -1/2}, Table[0, {m}]], m] // Flatten (* Jean-François Alcover, Feb 19 2020 *)

Formula

G.f.: (1-2x)/(1-4x+(3-y)*x^2).
Sum_{k, 0<=k<=n} T(n,k)*x^k = A139011(n), A000079(n), A007051(n), A006012(n), A001075(n), A081294(n), A001077(n), A084059(n), A108851(n), A084128(n), A081340(n), A084132(n) for x = -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 respectively.
Sum_{k, k>+0} T(n+k,k) = A081704(n) .
T(n,k) = 3*T(n-1,k)+ Sum_{j>0} T(n-1-j,k-1).
T(n,k) = 4*T(n-1,k)+ T(n-2,k-1) - 3*T(n-2,k) with T(0,0)=1, T(1,0)= 2, T(1,1) = 0 and T(n,k) = 0 if k<0 or if n

A123110 Triangle T(n,k), 0 <= k <= n, read by rows given by [0,1,0,0,0,0,0,0,0,0,...] DELTA [1,0,-1,1,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 0

Author

Philippe Deléham, Sep 28 2006

Keywords

Comments

Diagonal sums give A123108. - Philippe Deléham, Oct 08 2009

Examples

			Triangle begins:
  1;
  0, 1;
  0, 1, 1;
  0, 1, 1, 1;
  0, 1, 1, 1, 1;
  0, 1, 1, 1, 1, 1;
  0, 1, 1, 1, 1, 1, 1;
  0, 1, 1, 1, 1, 1, 1, 1;
  0, 1, 1, 1, 1, 1, 1, 1, 1;
  0, 1, 1, 1, 1, 1, 1, 1, 1, 1;
		

Crossrefs

Essentially the same sequence as A114607.
Also essentially the same as A023532. - R. J. Mathar, Jun 18 2008
After the initial a(0)=1, the characteristic function of A014132.
Cf. A010054.

Programs

Formula

Sum_{k=0..n} T(n,k)*x^k = A000007(n), A028310(n), A095121(n), A123109(n) for x=0,1,2,3 respectively.
G.f.: (1-x+y*x^2)/(1-(1+y)*x+y*x^2). - Philippe Deléham, Nov 01 2011
From Tom Copeland, Nov 10 2012: (Start)
O.g.f. for row polynomials: 1 + (t/(1-t))*(1/(1-x)-1/(1-x*t)) = 1 + t*x + (t+t^2)*x^2 + ....
E.g.f. for row polynomials: 1 + (t/(1-t))*(e^x-e^(t*x)) = 1 + t*x + (t+t^2)*x^2/2 + .... (End)
a(0) = 1; for n > 0, a(n) = 1 - A010054(n). [As a flat sequence] - Antti Karttunen, Jan 19 2025

A089949 Triangle T(n,k), read by rows, given by [0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, ...] DELTA [1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, ...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 0, 1, 0, 1, 2, 0, 1, 6, 6, 0, 1, 12, 34, 24, 0, 1, 20, 110, 210, 120, 0, 1, 30, 270, 974, 1452, 720, 0, 1, 42, 560, 3248, 8946, 11256, 5040, 0, 1, 56, 1036, 8792, 38338, 87504, 97296, 40320, 0, 1, 72, 1764, 20580, 129834, 463050, 920184, 930960, 362880
Offset: 0

Author

Philippe Deléham, Jan 11 2004

Keywords

Comments

Row reverse appears to be A111184. - Peter Bala, Feb 17 2017

Examples

			Triangle begins:
  1;
  0, 1;
  0, 1,  2;
  0, 1,  6,   6;
  0, 1, 12,  34,  24;
  0, 1, 20, 110, 210,  120;
  0, 1, 30, 270, 974, 1452, 720; ...
		

Crossrefs

Row sums: A003319.

Programs

  • Mathematica
    m = 10;
    gf = (1/x)*(1-1/(1+Sum[Product[(1+k*y), {k, 0, n-1}]*x^n, {n, 1, m}]));
    CoefficientList[#, y]& /@ CoefficientList[gf + O[x]^m, x] // Flatten (* Jean-François Alcover, May 11 2019 *)
  • PARI
    T(n,k)=if(nPaul D. Hanna, Aug 16 2005

Formula

Sum_{k=0..n} x^(n-k)*T(n,k) = A111528(x, n); see A000142, A003319, A111529, A111530, A111531, A111532, A111533 for x = 0, 1, 2, 3, 4, 5, 6. - Philippe Deléham, Aug 09 2005
Sum_{k=0..n} T(n,k)*3^k = A107716(n). - Philippe Deléham, Aug 15 2005
Sum_{k=0..n} T(n,k)*2^k = A000698(n+1). - Philippe Deléham, Aug 15 2005
G.f.: A(x, y) = (1/x)*(1 - 1/(1 + Sum_{n>=1} [Product_{k=0..n-1}(1+k*y)]*x^n )). - Paul D. Hanna, Aug 16 2005

A121314 Triangle T(n,k), 0 <= k <= n, read by rows given by [0, 1, 0, 0, 0, 0, ...] DELTA [1, 0, 1, 0, 0, 0, 0, 0, 0, 0, ...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 3, 1, 0, 1, 5, 6, 1, 0, 1, 7, 15, 10, 1, 0, 1, 9, 28, 35, 15, 1, 0, 1, 11, 45, 84, 70, 21, 1, 0, 1, 13, 66, 165, 210, 126, 28, 1, 0, 1, 15, 91, 286, 495, 462, 210, 36, 1
Offset: 0

Author

Philippe Deléham, Aug 25 2006

Keywords

Comments

A054142 with first diagonal 1, 0, 0, 0, 0, 0, 0, 0, ...
Mirror image of triangle in A165253.

Examples

			Triangle begins
  1;
  0,  1;
  0,  1,  1;
  0,  1,  3,  1;
  0,  1,  5,  6,  1;
  0,  1,  7, 15, 10,  1;
  0,  1,  9, 28, 35, 15,  1;
  0,  1, 11, 45, 84, 70, 21,  1;
		

Crossrefs

Formula

T(0,0)=1; T(n,0)=0 for n > 0; T(n+1,k+1) = binomial(2*n-k,k)for n >= 0 and k >= 0.
Sum_{k=0..n} T(n,k)*x^k = A001519(n), A047849(n), A165310(n), A165311(n), A165312(n), A165314(n), A165322(n), A165323(n), A165324(n) for x = 1,2,3,4,5,6,7,8,9 respectively.
Sum_{k=0..n} 2^k*T(n,k) = (4^n+2)/3.
Sum_{k=0..n} 2^(n-k)*T(n,k) = A001835(n).
Sum_{k=0..n} 3^k*4^(n-k)*T(n,k) = A054879(n). - Philippe Deléham, Aug 26 2006
Sum_{k=0..n} T(n,k)*(-1)^k*2^(3n-2k) = A143126(n). - Philippe Deléham, Oct 31 2008
Sum_{k=0..n} T(n,k)*(-1)^k*3^(n-k) = A138340(n)/4^n. - Philippe Deléham, Nov 01 2008
G.f.: (1-(y+1)*x)/(1-(2y+1)*x+y^2*x^2). - Philippe Deléham, Nov 01 2011
T(n,k) = T(n-1,k) + 2*T(n-1,k-1) - T(n-2,k-2), T(0,0) = T(1,1) = 1, T(1,0) = 0. - Philippe Deléham, Feb 19 2012

A131198 Triangle T(n,k), 0 <= k <= n, read by rows, given by [1,0,1,0,1,0,1,0,...] DELTA [0,1,0,1,0,1,0,1,...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 3, 1, 0, 1, 6, 6, 1, 0, 1, 10, 20, 10, 1, 0, 1, 15, 50, 50, 15, 1, 0, 1, 21, 105, 175, 105, 21, 1, 0, 1, 28, 196, 490, 490, 196, 28, 1, 0, 1, 36, 336, 1176, 1764, 1176, 336, 36, 1, 0, 1, 45, 540, 2520, 5292, 5292, 2520, 540, 45, 1, 0
Offset: 0

Author

Philippe Deléham, Oct 20 2007

Keywords

Comments

Mirror image of triangle A090181, another version of triangle of Narayana (A001263).
Equals A133336*A130595 as infinite lower triangular matrices. - Philippe Deléham, Oct 23 2007

Examples

			Triangle begins:
  1;
  1,  0;
  1,  1,   0;
  1,  3,   1,   0;
  1,  6,   6,   1,   0;
  1, 10,  20,  10,   1,   0;
  1, 15,  50,  50,  15,   1,  0;
  1, 21, 105, 175, 105,  21,  1, 0;
  1, 28, 196, 490, 490, 196, 28, 1, 0; ...
		

Crossrefs

Programs

  • Magma
    [[n le 0 select 1 else (n-k)*Binomial(n,k)^2/(n*(k+1)): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Feb 06 2018
  • Maple
    T := (n,k) -> `if`(n=0, 0^n, binomial(n,k)^2*(n-k)/(n*(k+1)));
    seq(print(seq(T(n,k), k=0..n)), n=0..5); # Peter Luschny, Jun 08 2014
    R := n -> simplify(hypergeom([1 - n, -n], [2], x)):
    Trow := n -> seq(coeff(R(n, x), x, k), k = 0..n):
    seq(print(Trow(n)), n = 0..9); # Peter Luschny, Apr 26 2022
  • Mathematica
    Table[If[n == 0, 1, (n-k)*Binomial[n,k]^2/(n*(k+1))], {n,0,10}, {k,0,n}] //Flatten (* G. C. Greubel, Feb 06 2018 *)
  • PARI
    for(n=0,10, for(k=0,n, print1(if(n==0,1, (n-k)*binomial(n,k)^2/(n* (k+1))), ", "))) \\ G. C. Greubel, Feb 06 2018
    

Formula

Sum_{k=0..n} T(n,k)*x^k = A000012(n), A000108(n), A001003(n), A007564(n), A059231(n), A078009(n), A078018(n), A081178(n), A082147(n), A082181(n), A082148(n), A082173(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 respectively.
Sum_{k=0..n} T(n,k)*x^(n-k) = A000007(n), A000108(n), A006318(n), A047891(n+1), A082298(n), A082301(n), A082302(n), A082305(n), A082366(n), A082367(n), for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 respectively. - Philippe Deléham, Oct 23 2007
Sum_{k=0..floor(n/2)} T(n-k,k) = A004148(n). - Philippe Deléham, Nov 06 2007
T(2*n,n) = A125558(n). - Philippe Deléham, Nov 16 2011
T(n, k) = [x^k] hypergeom([1 - n, -n], [2], x). - Peter Luschny, Apr 26 2022

A155112 Triangle T(n,k), 0<=k<=n, read by rows given by [0,2,-1/2,-1/2,0,0,0,0,0,0,0,0,...] DELTA [1,0,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 0, 3, 4, 1, 0, 5, 10, 6, 1, 0, 8, 22, 21, 8, 1, 0, 13, 45, 59, 36, 10, 1, 0, 21, 88, 147, 124, 55, 12, 1, 0, 34, 167, 339, 366, 225, 78, 14, 1, 0, 55, 310, 741, 976, 770, 370, 105, 16, 1, 0, 89, 566, 1557, 2422, 2337, 1443, 567, 136, 18, 1, 0, 144, 1020, 3174, 5696, 6505, 4920, 2485, 824, 171, 20, 1
Offset: 0

Author

Philippe Deléham, Jan 20 2009

Keywords

Comments

A Fibonacci convolution triangle; Riordan array (1, x*(1+x)/(1-x-x^2)).

Examples

			Triangle begins:
  1;
  0,  1;
  0,  2,  1;
  0,  3,  4,  1;
  0,  5, 10,  6,  1;
  0,  8, 22, 21,  8,  1;
  0, 13, 45, 59, 36, 10, 1;
  ...
		

Programs

  • Magma
    T:= func< n,k | n eq 0 select 1 else (&+[ Binomial(n-j,j)*Binomial(n-j,k)*k/(n-j): j in [0..Floor(n/2)]]) >;
    [T(n,k): k in [0..n], n in [0..12]]; // G. C. Greubel, Mar 26 2021
    
  • Maple
    # Uses function PMatrix from A357368.
    PMatrix(10, n -> combinat:-fibonacci(n+1)); # Peter Luschny, Oct 19 2022
  • Mathematica
    T[n_, k_]:= If[n==0, 1, Sum[Binomial[n-j, j]*Binomial[n-j, k]*k/(n-j), {j, 0, Floor[n/2]}]];
    Table[T[n, k], {n,0,12}, {k,0,n}]//Flatten (* G. C. Greubel, Mar 26 2021 *)
  • Sage
    def T(n,k): return 1 if n==0 else sum( binomial(n-j,j)*binomial(n-j,k)*k/(n-j) for j in (0..n//2) )
    flatten([[T(n,k) for k in [0..n]] for n in [0..12]]) # G. C. Greubel, Mar 26 2021

Formula

Recurrence: T(n+2,k+1) = T(n+1,k+1) + T(n+1,k) + T(n,k+1) + T(n,k).
Explicit formula: T(n,k) = Sum_{i=0..floor(n/2)} binomial(n-i, i)*binomial(n-i, k)*k/(n-i), for n > 0.
G.f.: (1-x-x^2)/(1-(1+y)*x-(1+y)*x^2). - Philippe Deléham, Feb 21 2012
Sum_{k=0..n} T(n,k)*x^(n-k) = A000012(n), A155020(n), A154964(n), A154968(n), A154996(n), A154997(n), A154999(n), A155000(n), A155001(n), A155017(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, respectively.
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A155020(n), A155116(n), A155117(n), A155119(n), A155127(n), A155130(n), A155132(n), A155144(n), A155157(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, respectively. - Philippe Deléham, Feb 21 2012
Sum_{k=0..n} T(n, k)*(m-1)^k = (1/m)*[n=0] - (m-1)*(i*sqrt(m))^(n-2)*ChebyshevU(n, -i*sqrt(m)/2). - G. C. Greubel, Mar 26 2021
Sum_{k=0..n} k * T(n,k) = A291385(n-1) for n>=1. - Alois P. Heinz, Sep 29 2022

Extensions

Typos in two terms corrected by Alois P. Heinz, Aug 08 2015

A200139 Triangle T(n,k), read by rows, given by (1,1,0,0,0,0,0,0,0,...) DELTA (1,0,0,0,0,0,0,0,0,...) where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 1, 1, 2, 3, 1, 4, 8, 5, 1, 8, 20, 18, 7, 1, 16, 48, 56, 32, 9, 1, 32, 112, 160, 120, 50, 11, 1, 64, 256, 432, 400, 220, 72, 13, 1, 128, 576, 1120, 1232, 840, 364, 98, 15, 1, 256, 1280, 2816, 3584, 2912, 1568, 560, 128, 17, 1, 512, 2816, 6912, 9984, 9408, 6048, 2688, 816, 162, 19, 1
Offset: 0

Author

Philippe Deléham, Nov 13 2011

Keywords

Comments

Riordan array ((1-x)/(1-2x),x/(1-2x)).
Product A097805*A007318 as infinite lower triangular arrays.
Product A193723*A130595 as infinite lower triangular arrays.
T(n,k) is the number of ways to place n unlabeled objects into any number of labeled bins (with at least one object in each bin) and then designate k of the bins. - Geoffrey Critzer, Nov 18 2012
Apparently, rows of this array are unsigned diagonals of A028297. - Tom Copeland, Oct 11 2014
Unsigned A118800, so my conjecture above is true. - Tom Copeland, Nov 14 2016

Examples

			Triangle begins:
   1
   1,   1
   2,   3,   1
   4,   8,   5,   1
   8,  20,  18,   7,   1
  16,  48,  56,  32,   9,   1
  32, 112, 160, 120,  50,  11,   1
		

Crossrefs

Cf. A118800 (signed version), A081277, A039991, A001333 (antidiagonal sums), A025192 (row sums); diagonals: A000012, A005408, A001105, A002492, A072819l; columns: A011782, A001792, A001793, A001794, A006974, A006975, A006976.

Programs

  • Mathematica
    nn=15;f[list_]:=Select[list,#>0&];Map[f,CoefficientList[Series[(1-x)/(1-2x-y x) ,{x,0,nn}],{x,y}]]//Grid  (* Geoffrey Critzer, Nov 18 2012 *)

Formula

T(n,k) = 2*T(n-1,k)+T(n-1,k-1) with T(0,0)=T(1,0)=T(1,1)=1 and T(n,k)=0 for k<0 or for n
T(n,k) = A011782(n-k)*A135226(n,k) = 2^(n-k)*(binomial(n,k)+binomial(n-1,k-1))/2.
Sum_{k, 0<=k<=n} T(n,k)*x^k = A000007(n), A011782(n), A025192(n), A002001(n), A005054(n), A052934(n), A055272(n), A055274(n), A055275(n), A052268(n), A055276(n), A196731(n) for n=-1,0,1,2,3,4,5,6,7,8,9,10 respectively.
G.f.: (1-x)/(1-(2+y)*x).
T(n,k) = Sum_j>=0 T(n-1-j,k-1)*2^j.
T = A007318*A059260, so the row polynomials of this entry are given umbrally by p_n(x) = (1 + q.(x))^n, where q_n(x) are the row polynomials of A059260 and (q.(x))^k = q_k(x). Consequently, the e.g.f. is exp[tp.(x)] = exp[t(1+q.(x))] = e^t exp(tq.(x)) = [1 + (x+1)e^((x+2)t)]/(x+2), and p_n(x) = (x+1)(x+2)^(n-1) for n > 0. - Tom Copeland, Nov 15 2016
T^(-1) = A130595*(padded A130595), differently signed A118801. Cf. A097805. - Tom Copeland, Nov 17 2016
The n-th row polynomial in descending powers of x is the n-th Taylor polynomial of the rational function (1 + x)/(1 + 2*x) * (1 + 2*x)^n about 0. For example, for n = 4, (1 + x)/(1 + 2*x) * (1 + 2*x)^4 = (8*x^4 + 20*x*3 + 18*x^2 + 7*x + 1) + O(x^5). - Peter Bala, Feb 24 2018

A202064 Triangle T(n,k), read by rows, given by (2, -1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1/2, -1/2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 2, 0, 3, 1, 0, 4, 4, 0, 0, 5, 10, 1, 0, 0, 6, 20, 6, 0, 0, 0, 7, 35, 21, 1, 0, 0, 0, 8, 56, 56, 8, 0, 0, 0, 0, 9, 84, 126, 36, 1, 0, 0, 0, 0, 10, 120, 252, 120, 10, 0, 0, 0, 0, 0, 11, 165, 462, 330, 55, 1, 0, 0, 0, 0, 0
Offset: 0

Author

Philippe Deléham, Dec 10 2011

Keywords

Comments

Riordan array (x/(1-x)^2, x^2/(1-x)^2).
Mirror image of triangle in A119900.
A203322*A130595 as infinite lower triangular matrices. - Philippe Deléham, Jan 05 2011
From Gus Wiseman, Jul 07 2025: (Start)
Also the number of subsets of {1..n} containing n with k maximal runs (sequences of consecutive elements increasing by 1). For example, row n = 5 counts the following subsets:
{5} {1,5} {1,3,5}
{4,5} {2,5}
{3,4,5} {3,5}
{2,3,4,5} {1,2,5}
{1,2,3,4,5} {1,4,5}
{2,3,5}
{2,4,5}
{1,2,3,5}
{1,2,4,5}
{1,3,4,5}
For anti-runs instead of runs we have A053538.
Without requiring n see A210039, A202023, reverse A098158, A109446.
(End)

Examples

			Triangle begins :
1
2, 0
3, 1, 0
4, 4, 0, 0
5, 10, 1, 0, 0
6, 20, 6, 0, 0, 0
7, 35, 21, 1, 0, 0, 0
8, 56, 56, 8, 0, 0, 0, 0
		

Crossrefs

Cf. A007318, A005314 (antidiagonal sums), A119900, A084938, A130595, A203322.
Column k = 1 is A000027.
Row sums are A000079.
Column k = 2 is A000292.
Without zeros we have A034867.
Last nonzero term in each row appears to be A124625.
A034839 counts subsets by number of maximal runs, for anti-runs A384893.
A116674 counts strict partitions by number of maximal runs, for anti-runs A384905.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&Length[Split[#,#2==#1+1&]]==k&]],{n,12},{k,n}] (* Gus Wiseman, Jul 07 2025 *)

Formula

G.f.: 1/((1-x)^2-y*x^2).
Sum_{k, 0<=k<=n} T(n,k)*x^k = A000027(n+1), A000079(n), A000129(n+1), A002605(n+1), A015518(n+1), A063727(n), A002532(n+1), A083099(n+1), A015519(n+1), A003683(n+1), A002534(n+1), A083102(n), A015520(n+1), A091914(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 10, 11, 12, 13 respectively.
T(n,k) = binomial(n+1,2k+1).
T(n,k) = 2*T(n-1,k) + T(n-2,k-1) - T(n-2,k), T(0,0) = 1, T(1,0) = 2, T(1,1) = 0 and T(n,k) = 0 if k<0 or if k>n. - Philippe Deléham, Mar 15 2012

A086872 Triangle T(n, k) read by rows; given by [1, 2, 3, 4, 5, 6, ..] DELTA [1, 4, 9, 16, 25, 36, ...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 1, 1, 3, 8, 5, 15, 75, 121, 61, 105, 840, 2478, 3128, 1385, 945, 11025, 51030, 115350, 124921, 50521, 10395, 166320, 1105335, 3859680, 7365633, 7158128, 2702765
Offset: 0

Author

Philippe Deléham, Aug 20 2003, Aug 17 2007

Keywords

Examples

			Triangle begins:
1;
1, 1;
3, 8, 5;
15, 75, 121, 61;
105, 840, 2478, 3128, 1385;
945, 11025, 51030, 115350, 124921, 50521;
10395, 166320, 1105335, 3859680, 7365633, 7158128, 2702765 ; ...
		

Crossrefs

Cf. A000182 (row sums), A000364 (first diagonal), A001147 (first column), A084938, A261065 (2nd column).

Formula

Sum( k>=0, T(n, k)*(-1)^k ) = 0; if n>0.
Sum( k>=0, T(n, k)*(-1/2)^k ) = (1/2)^n.
Sum_{k, 0<=k<=n}T(n,k)*x^(n-k) = (-1)^n*A121822(n), (-1)^n*A092812(n), (-1)^n*A054879(n), A009117(n), A033999(n), A000007(n), A000364(n), A000182(n+1) for x = -6, -5, -4, -3, -2, -1, 0, 1 respectively .

A133336 Triangle T(n,k), 0 <= k <= n, read by rows, given by [1,1,1,1,1,1,1,...] DELTA [0,1,0,1,0,1,0,1,0,...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 5, 5, 1, 0, 14, 21, 9, 1, 0, 42, 84, 56, 14, 1, 0, 132, 330, 300, 120, 20, 1, 0, 429, 1287, 1485, 825, 225, 27, 1, 0, 1430, 5005, 7007, 5005, 1925, 385, 35, 1, 0, 4862, 19448, 32032, 28028, 14014, 4004, 616, 44, 1, 0, 16796, 75582, 143208, 148512, 91728, 34398, 7644, 936, 54, 1, 0
Offset: 0

Author

Philippe Deléham, Oct 19 2007

Keywords

Comments

Mirror image of triangle A086810; another version of A126216.
Equals A131198*A007318 as infinite lower triangular matrices. - Philippe Deléham, Oct 23 2007
Diagonal sums: A119370. - Philippe Deléham, Nov 09 2009

Examples

			Triangle begins:
    1;
    1,    0;
    2,    1,    0;
    5,    5,    1,   0;
   14,   21,    9,   1,   0;
   42,   84,   56,  14,   1,  0;
  132,  330,  300, 120,  20,  1, 0;
  429, 1287, 1485, 825, 225, 27, 1, 0;
		

Programs

  • Magma
    [[Binomial(n-1,k)*Binomial(2*n-k,n)/(n+1): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Feb 05 2018
  • Mathematica
    Table[Binomial[n-1,k]*Binomial[2*n-k,n]/(n+1), {n,0,10}, {k,0,n}] // Flatten (* G. C. Greubel, Feb 05 2018 *)
  • PARI
    for(n=0,10, for(k=0,n, print1(binomial(n-1,k)*binomial(2*n-k,n)/(n+1), ", "))) \\ G. C. Greubel, Feb 05 2018
    

Formula

Sum_{k=0..n} T(n,k)*x^k = A000108(n), A001003(n), A007564(n), A059231(n), A078009(n), A078018(n), A081178(n), A082147(n), A082181(n), A082148(n), A082173(n) for x = 0,1,2,3,4,5,6,7,8,9,10 respectively.
Sum_{k=0..n} T(n,k)*x^(n-k) = A000007(n), A001003(n), A107841(n), A131763(n), A131765(n), A131846(n), A131926(n), A131869(n), A131927(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8 respectively. - Philippe Deléham, Nov 05 2007
Sum_{k=0..n} T(n,k)*(-2)^k*5^(n-k) = A152601(n). - Philippe Deléham, Dec 10 2008
T(n,k) = binomial(n-1,k)*binomial(2n-k,n)/(n+1), k <= n. - Philippe Deléham, Nov 02 2009
Previous Showing 11-20 of 637 results. Next