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 31-40 of 103 results. Next

A112467 Riordan array ((1-2x)/(1-x), x/(1-x)).

Original entry on oeis.org

1, -1, 1, -1, 0, 1, -1, -1, 1, 1, -1, -2, 0, 2, 1, -1, -3, -2, 2, 3, 1, -1, -4, -5, 0, 5, 4, 1, -1, -5, -9, -5, 5, 9, 5, 1, -1, -6, -14, -14, 0, 14, 14, 6, 1, -1, -7, -20, -28, -14, 14, 28, 20, 7, 1, -1, -8, -27, -48, -42, 0, 42, 48, 27, 8, 1, -1, -9, -35, -75, -90, -42, 42, 90, 75, 35, 9, 1, -1, -10, -44, -110, -165, -132, 0, 132, 165, 110
Offset: 0

Views

Author

Paul Barry, Sep 06 2005

Keywords

Comments

Row sums are A000007. Diagonal sums are -F(n-2). Inverse is A112468. T(2n,n)=0.
(-1,1)-Pascal triangle. - Philippe Deléham, Aug 07 2006
Apart from initial term, same as A008482. - Philippe Deléham, Nov 07 2006
Each column equals the cumulative sum of the previous column. - Mats Granvik, Mar 15 2010
Reading along antidiagonals generates in essence rows of A192174. - Paul Curtz, Oct 02 2011
Triangle T(n,k), read by rows, given by (-1,2,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. - Philippe Deléham, Nov 01 2011

Examples

			Triangle starts:
    1;
   -1,  1;
   -1,  0,   1;
   -1, -1,   1,   1;
   -1, -2,   0,   2,   1;
   -1, -3,  -2,   2,   3,   1;
   -1, -4,  -5,   0,   5,   4,  1;
   -1, -5,  -9,  -5,   5,   9,  5,  1;
   -1, -6, -14, -14,   0,  14, 14,  6,  1;
   -1, -7, -20, -28, -14,  14, 28, 20,  7,  1;
   -1, -8, -27, -48, -42,   0, 42, 48, 27,  8, 1;
   -1, -9, -35, -75, -90, -42, 42, 90, 75, 35, 9, 1;
  ...
From _Paul Barry_, Apr 08 2011: (Start)
Production matrix begins:
   1,  1,
  -2, -1,  1,
   2,  0, -1,  1,
  -2,  0,  0, -1,  1,
   2,  0,  0,  0, -1,  1,
  -2,  0,  0,  0,  0, -1,  1,
   2,  0,  0,  0,  0,  0, -1,  1
  ... (End)
		

Crossrefs

Programs

  • Magma
    [n eq 0 select 1 else (2*k-n)*Binomial(n,k)/n: k in [0..n], n in [0..10]]; // G. C. Greubel, Dec 04 2019
    
  • Maple
    seq(seq( `if`(n=0, 1, (2*k-n)*binomial(n,k)/n), k=0..n), n=0..10); # G. C. Greubel, Dec 04 2019
  • Mathematica
    T[n_, k_]= If[n==0, 1, ((2*k-n)/n)*Binomial[n, k]]; Table[T[n, k], {n, 0, 10}, {k, 0, n}]//Flatten (* Roger L. Bagula, Feb 16 2009; modified by G. C. Greubel, Dec 04 2019 *)
  • PARI
    T(n, k) = if(n==0, 1, (2*k-n)*binomial(n,k)/n ); \\ G. C. Greubel, Dec 04 2019
    
  • Sage
    def T(n, k):
        if (n==0): return 1
        else: return (2*k-n)*binomial(n,k)/n
    [[T(n, k) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Dec 04 2019

Formula

Number triangle T(n, k) = binomial(n, n-k) - 2*binomial(n-1, n-k-1).
Sum_{k=0..n} T(n, k)*x^k = (x-1)*(x+1)^(n-1). - Philippe Deléham, Oct 03 2005
T(n,k) = ((2*k-n)/n)*binomial(n, k), with T(0,0)=1. - Roger L. Bagula, Feb 16 2009; modified by G. C. Greubel, Dec 04 2019
T(n,k) = T(n-1,k-1) + T(n-1,k) with T(0,0)=1, T(1,0)=-1, T(n,k)=0 for k>n or for n<0. - Philippe Deléham, Nov 01 2011
G.f.: (1-2x)/(1-(1+y)*x). - Philippe Deléham, Dec 15 2011
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A133494(n), A081294(n), A005053(n), A067411(n), A199661(n), A083233(n) for x = 1, 2, 3, 4, 5, 6, 7, respectively. - Philippe Deléham, Dec 15 2011
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(-1 - x + x^2/2! + x^3/3!) = -1 - 2*x - 2*x^2/2! + 5*x^4/4! + 14*x^5/5! + .... The same property holds more generally for Riordan arrays of the form ( f(x), x/(1 - x) ). - Peter Bala, Dec 21 2014
Sum_{k=0..n} T(n,k) = 0^n = A000007(n). - G. C. Greubel, Dec 04 2019

A070775 a(n) = Sum_{k=0..n} binomial(4*n,4*k).

Original entry on oeis.org

1, 2, 72, 992, 16512, 261632, 4196352, 67100672, 1073774592, 17179738112, 274878431232, 4398044413952, 70368752566272, 1125899873288192, 18014398643699712, 288230375614840832, 4611686020574871552, 73786976286248271872, 1180591620751771041792, 18889465931341141901312
Offset: 0

Views

Author

Sebastian Gutierrez and Sarah Kolitz (skolitz(AT)mit.edu), May 15 2002

Keywords

Comments

Also the cogrowth sequence of the 16-element group C4 X C4 = . - Sean A. Irvine, Nov 09 2024

Crossrefs

Sum_{k=0..n} binomial(b*n,b*k): A000079 (b=1), A081294 (b=2), A007613 (b=3), this sequence (b=4), A070782 (b=5), A070967 (b=6), A094211 (b=7), A070832 (b=8), A094213 (b=9), A070833 (b=10).

Programs

  • Maple
    a := n -> if n = 0 then 1 else 4^(n - 1)*(2*(-1)^n + 4^n) fi:
    seq(a(n), n = 0..19); # Peter Luschny, Jul 02 2022
  • Mathematica
    Table[Sum[Binomial[4n,4k],{k,0,n}],{n,0,30}] (* or *) Join[{1}, LinearRecurrence[{12,64},{2,72},30]] (* Harvey P. Dale, Apr 24 2011 *)
  • PARI
    a(n)=sum(k=0,n,binomial(4*n,4*k))
    
  • PARI
    N=66; x='x+O('x^N); Vec((1-10*x-16*x^2)/((1-16*x)*(1+4*x))) \\ Seiichi Manyama, Mar 15 2019

Formula

a(n) = (1/2)*(-4)^n + (1/4)*16^n for n > 0.
Let b(n) = a(n) - 2^(4n)/4 then b(n+1) = 4*b(n) - Benoit Cloitre, May 27 2004
G.f.: (1 - 10*x - 16*x^2)/((1-16*x)*(1+4*x)). - Seiichi Manyama, Mar 15 2019
G.f.: ((cos(x) + cosh(x))/2)^2 = Sum_{n >= 0} a(n)*x(4*n)/(4*n)!. - Peter Bala, Jun 20 2022

A122983 a(n) = (2 + (-1)^n + 3^n)/4.

Original entry on oeis.org

1, 1, 3, 7, 21, 61, 183, 547, 1641, 4921, 14763, 44287, 132861, 398581, 1195743, 3587227, 10761681, 32285041, 96855123, 290565367, 871696101, 2615088301, 7845264903, 23535794707, 70607384121, 211822152361, 635466457083
Offset: 0

Views

Author

Paul Barry, Sep 22 2006

Keywords

Comments

Old definition was: "Binomial transform of aeration of A081294".
Binomial transform is A063376.
A122983 = (1,1,3,7,1,1,3,7,...) mod 10. - M. F. Hasler, Feb 25 2008
Equals row sums of triangle A158301. - Gary W. Adamson, Mar 15 2009
a(n) = the number of ternary sequences of length n where the numbers of (0's, 1's) are both even. A015518 covers the (odd, even) and (even, odd) cases, and A081251 covers (odd, odd). - Toby Gottfried, Apr 18 2010
This sequence also describes the number of moves of the k-th disk solving (non-optimally) the [RED ; NEUTRAL ; BLUE] pre-colored Magnetic Tower of Hanoi (MToH) puzzle. The sequence A183119 is the partial sums of the sequence in question (obviously describing the total number of moves associated with the specific solution algorithm). For other MToH-related sequences, Cf. A183111 - A183125.
Let B=[1,sqrt(2),0; sqrt(2),1,sqrt(2); 0,sqrt(2),1] be a 3 X 3 matrix. Then a(n)=[B^n](1,1), n=0,1,2,.... - _L. Edson Jeffery, Dec 21 2011
Also the domination number of the n-Hanoi graph. - Eric W. Weisstein, Jun 16 2017
Also the matching number of the n-Sierpinski gasket graph. - Eric W. Weisstein, Jun 17 2017
Let M = [1,1,1,0; 1,1,0,1; 1,0,1,1; 0,1,1,1], a 4 X 4 matrix. Then a(n) is the upper left entry in M^n. - Philippe Deléham, Aug 23 2020
Also the lower matching number (=independent domination number) of the n-Hanoi graph. - Eric W. Weisstein, Aug 01 2023

Crossrefs

Cf. a(j+1) = A137822(2^j) and these are the record values of A137822.
Cf. A054879 (bisection), A066443 (bisection). Row sums of A158303.

Programs

Formula

From Paul Barry, Jun 14 2007: (Start)
G.f.: (1-2*x-x^2)/((1-x)*(1+x)*(1-3*x));
a(n) = 3^n/4+(-1)^n/4+1/2;
E.g.f.: cosh(x)^2*exp(x). (End)
a(n) = 3*a(n-1) + a(n-2) - 3*a(n-3); a(0)=1, a(1)=1, a(2)=3. - Harvey P. Dale, Sep 03 2013
E.g.f.: Q(0)/2, where Q(k) = 1 + 3^k/( 2 - 2*(-1)^k/( 3^k + (-1)^k - 2*x*3^k/( 2*x + (k+1)*(-1)^k/Q(k+1) ))); (continued fraction). - Sergei N. Gladkovskii, Dec 22 2013
a(2*n) = 3*a(2*n-1); a(2*n+1) = 3*a(2*n) - 2. - Philippe Deléham, Aug 23 2020

Extensions

Extended and corrected (existing Maple code) by M. F. Hasler, Feb 25 2008
Description changed to formula by Eric W. Weisstein, Jun 16 2017

A054879 Closed walks of length 2n along the edges of a cube based at a vertex.

Original entry on oeis.org

1, 3, 21, 183, 1641, 14763, 132861, 1195743, 10761681, 96855123, 871696101, 7845264903, 70607384121, 635466457083, 5719198113741, 51472783023663, 463255047212961, 4169295424916643, 37523658824249781, 337712929418248023, 3039416364764232201, 27354747282878089803, 246192725545902808221
Offset: 0

Views

Author

Paolo Dominici (pl.dm(AT)libero.it), May 23 2000

Keywords

Comments

a(n) is the number of words of length 2n on alphabet {0,1,2} with an even number (possibly zero) of each letter. - Geoffrey Critzer, Dec 20 2012
Equivalently, the cogrowth sequence of the 8-element group C2^3. - Sean A. Irvine, Nov 04 2024

Crossrefs

Programs

  • Magma
    [(3^(2*n)+3)/4: n in [0..25]]; // Vincenzo Librandi, Jun 30 2011
  • Mathematica
    nn = 40; Select[Range[0, nn]! CoefficientList[Series[Cosh[x]^3, {x, 0, nn}], x], # > 0 &]  (* Geoffrey Critzer, Dec 20 2012 *)
    Table[(3^(2n)+3)/4,{n,0,30}] (* or *) LinearRecurrence[{10,-9},{1,3},30] (* Harvey P. Dale, Mar 17 2023 *)

Formula

a(n) = (3^(2*n)+3)/4.
G.f.: 1/4*1/(1-9*x)+3/4*1/(1-x).
a(n) = Sum_{k=0..n} 3^k*4^(n-k)*A121314(n,k). - Philippe Deléham, Aug 26 2006
E.g.f.: cosh^3(x). O.g.f.: 1/(1-3*1*x/(1-2*2*x/(1-1*3*x))) (continued fraction). - Peter Bala, Nov 13 2006
(-1)^n*a(n) = Sum_{k=0..n} A086872(n,k)*(-4)^(n-k). - Philippe Deléham, Aug 17 2007
a(n) = (1/2^3)*Sum_{j = 0..3} binomial(3,j)*(3 - 2*j)^(2*n). See Reyzin link. - Peter Bala, Jun 03 2019
a(n) = 9*a(n-1) - 6. - Klaus Purath, Mar 13 2021

A034478 a(n) = (5^n + 1)/2.

Original entry on oeis.org

1, 3, 13, 63, 313, 1563, 7813, 39063, 195313, 976563, 4882813, 24414063, 122070313, 610351563, 3051757813, 15258789063, 76293945313, 381469726563, 1907348632813, 9536743164063, 47683715820313, 238418579101563
Offset: 0

Views

Author

Keywords

Comments

Terms (with the offset changed to 1) are also the quotients arising from sequence A050621.
Partial sums of A020699. - Paul Barry, Sep 03 2003
Binomial transform of A081294. - Paul Barry, Jan 13 2005

Examples

			G.f. = 1 + 3*x + 13*x^2 + 63*x^3 + 313*x^4 + 1563*x^5 + 7813*x^6 + ...
		

Crossrefs

Programs

  • Maple
    seq((5^n + 1)/2, n=0..20); # Zerinvary Lajos, Jun 16 2007
  • Mathematica
    LinearRecurrence[{6, -5},{1, 3},22] (* Ray Chandler, May 25 2021 *)
  • Sage
    [lucas_number2(n,6,5)/2 for n in range(0,22)] # Zerinvary Lajos, Jul 08 2008

Formula

E.g.f.: exp(3*x)*cosh(2*x). - Paul Barry, Mar 17 2003
G.f.: (1-3*x)/((1-x)*(1-5*x)). - Paul Barry, Sep 03 2003
a(n) = Sum_{k=0..n} Sum_{j=0..k} binomial(n, k)*binomial(2*k, 2*j). - Paul Barry, Jan 13 2005
a(n) = 6*a(n-1) - 5*a(n-2) for n>1, a(0)=1, a(1)=3. - Philippe Deléham, Jul 11 2005
a(n)^2 + (a(n) - 1)^2 = a(2*n). E.g., 63^2 + 62^2 = 7813 = a(6). - Gary W. Adamson, Jun 17 2006
a(n) = 5*a(n-1) - 2 for n>0, a(0)=1. - Vincenzo Librandi, Aug 01 2010
a(n) = A034474(n)/2. - Elmo R. Oliveira, Dec 10 2023

A037965 a(n) = n*binomial(2*n-2, n-1).

Original entry on oeis.org

0, 1, 4, 18, 80, 350, 1512, 6468, 27456, 115830, 486200, 2032316, 8465184, 35154028, 145608400, 601749000, 2481880320, 10218366630, 42004911960, 172427570700, 706905276000, 2894777105220, 11841673237680, 48394276165560, 197602337462400, 806190092077500
Offset: 0

Views

Author

Keywords

Comments

a(n+1) is the convolution of A000984 and A081294. - Paul Barry, Sep 18 2008

References

  • The right-hand side of a binomial coefficient identity in H. W. Gould, Combinatorial Identities, Morgantown, 1972.

Crossrefs

Cf. A000984, A001622, A081294, A109188 (inverse binomial transform).

Programs

  • Magma
    [0] cat [n^2*Catalan(n-1): n in [1..30]]; // G. C. Greubel, Jun 19 2022
    
  • Mathematica
    a[n_]:= n*Binomial[2*n-2, n-1]; Array[a, 30, 0] (* Amiram Eldar, Mar 10 2022 *)
  • PARI
    a(n) = n*binomial(2*n-2, n-1); \\ Joerg Arndt, Sep 04 2017
    
  • SageMath
    [n^2*catalan_number(n-1) for n in (0..30)] # G. C. Greubel, Jun 19 2022

Formula

Assuming offset -1 here and offset 0 in A134757, A134757 is the inverse binomial transform of this sequence. - Gary W. Adamson, Nov 08 2007
G.f.: Hypergeometric2F1([1/2, 2], [1], 4*x). - Paul Barry, Sep 03 2008
From Paul Barry, Sep 18 2008: (Start)
G.f.: x*(1-2*x)/(1-4*x)^(3/2);
a(n+1) = Sum_{k=0..n} binomial(2*k,k)*(4^(n-k) + 0^(n-k))/2. (End)
D-finite with recurrence (n-1)*a(n) - 2*(3*n-4)*a(n-1) + 4*(2*n-5)*a(n-2) = 0. - R. J. Mathar, Nov 30 2012
E.g.f.: x*exp(2*x)*BesselI(0,2*x). - Ilya Gutkovskiy, Aug 22 2018
a(n) = n*A000984(n-1). - R. J. Mathar, Nov 08 2021
From Amiram Eldar, Mar 10 2022: (Start)
Sum_{n>=1} 1/a(n) = 4*Pi/(3*sqrt(3)) - Pi^2/9.
Sum_{n>=1} (-1)^(n+1)/a(n) = 8*log(phi)/sqrt(5) - 4*log(phi)^2, where phi is the golden ratio (A001622). (End)

Extensions

More terms from Zerinvary Lajos, Oct 02 2007

A070782 a(n) = Sum_{k=0..n} binomial(5*n,5*k).

Original entry on oeis.org

1, 2, 254, 6008, 215766, 6643782, 215492564, 6863694378, 219993856006, 7035859329512, 225191238869774, 7205634556190798, 230585685502492596, 7378682274243863442, 236118494435702913134, 7555784484021765207768, 241785184867484394069286, 7737125013254912900576822
Offset: 0

Views

Author

Sebastian Gutierrez and Sarah Kolitz (skolitz(AT)mit.edu), May 15 2002

Keywords

Crossrefs

Sum_{k=0..n} binomial(b*n,b*k): A000079 (b=1), A081294 (b=2), A007613 (b=3), A070775 (b=4), this sequence (b=5), A070967 (b=6), A094211 (b=7), A070832 (b=8), A094213 (b=9), A070833 (b=10).

Programs

  • Mathematica
    LinearRecurrence[{21,353,-32},{1,2,254},20] (* Harvey P. Dale, Jun 18 2023 *)
  • PARI
    a(n)=sum(k=0,n,binomial(5*n,5*k))
    
  • PARI
    Vec((1 - 19*x - 141*x^2) / ((1 - 32*x)*(1 + 11*x - x^2)) + O(x^20)) \\ Colin Barker, May 27 2019

Formula

a(n) = (1/5)*32^n + (2/5)*(-11/2 + (5/2)*sqrt(5))^n + (2/5)*(-11/2 - (5/2)*sqrt(5))^n.
Let b(n) = a(n) - 2^(5n)/5; then b(n) + 11*b(n-1) - b(n-2) = 0. - Benoit Cloitre, May 27 2004
From Colin Barker, May 27 2019: (Start)
G.f.: (1 - 19*x - 141*x^2) / ((1 - 32*x)*(1 + 11*x - x^2)).
a(n) = 21*a(n-1) + 353*a(n-2) - 32*a(n-3) for n>2.
(End)

A055372 Invert transform of Pascal's triangle A007318.

Original entry on oeis.org

1, 1, 1, 2, 4, 2, 4, 12, 12, 4, 8, 32, 48, 32, 8, 16, 80, 160, 160, 80, 16, 32, 192, 480, 640, 480, 192, 32, 64, 448, 1344, 2240, 2240, 1344, 448, 64, 128, 1024, 3584, 7168, 8960, 7168, 3584, 1024, 128, 256, 2304, 9216, 21504, 32256, 32256, 21504, 9216, 2304, 256
Offset: 0

Views

Author

Christian G. Bower, May 16 2000

Keywords

Comments

Triangle T(n,k), 0 <= k <= n, read by rows, given by [1, 1, 0, 0, 0, 0, 0, 0, 0, ...] DELTA [1, 1, 0, 0, 0, 0, 0, 0, 0, ...] where DELTA is the operator defined in A084938. - Philippe Deléham, Aug 10 2005
T(n,k) is the number of nonempty bit strings with n bits and exactly k 1's over all strings in the sequence. For example, T(2,1)=4 because we have {(01)},{(10)},{(0),(1)},{(1),(0)}. - Geoffrey Critzer, Apr 06 2013

Examples

			Triangle begins:
  1;
  1,  1;
  2,  4,  2;
  4, 12, 12,  4;
  8, 32, 48, 32,  8;
  ...
		

Crossrefs

Row sums give A081294. Cf. A000079, A007318, A055373, A055374.
Cf. A134309.
T(2n,n) gives A098402.

Programs

  • Mathematica
    nn=10;f[list_]:=Select[list,#>0&];a=(x+y x)/(1-(x+y x));Map[f,CoefficientList[Series[1/(1-a),{x,0,nn}],{x,y}]]//Grid  (* Geoffrey Critzer, Apr 06 2013 *)

Formula

a(n,k) = 2^(n-1)*C(n, k), for n>0.
G.f.: A(x, y)=(1-x-xy)/(1-2x-2xy).
As an infinite lower triangular matrix, equals A134309 * A007318. - Gary W. Adamson, Oct 19 2007
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A011782(n), A081294(n), A081341(n), A092811(n), A093143(n), A067419(n) for x = -1, 0, 1, 2, 3, 4, 5 respectively. - Philippe Deléham, Feb 05 2012

A134309 Triangle read by rows, where row n consists of n zeros followed by 2^(n-1).

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 0, 4, 0, 0, 0, 0, 8, 0, 0, 0, 0, 0, 16, 0, 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 256, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 512, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1024, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2048, 0, 0, 0, 0, 0, 0, 0
Offset: 0

Views

Author

Gary W. Adamson, Oct 19 2007

Keywords

Comments

As infinite lower triangular matrices, binomial transform of A134309 = A082137. A134309 * A007318 = A055372. A134309 * [1,2,3,...] = A057711: (1, 2, 6, 16, 40, 96, 224,...).
Triangle read by rows given by [0,0,0,0,0,0,0,0,...] DELTA [1,1,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938. - Philippe Deléham, Oct 20 2007

Examples

			Triangle T(n,k) (with rows n >= 0 and columns k = 0..n) begins:
  1;
  0, 1;
  0, 0, 2;
  0, 0, 0, 4;
  0, 0, 0, 0, 8;
  0, 0, 0, 0, 0, 16;
  ...
		

Crossrefs

Cf. A011782 (diagonal elements: 1 followed by 1, 2, 4, 8, ... = A000079: 2^n).

Programs

  • Mathematica
    Join[{1},Flatten[Table[Join[{PadRight[{},n],2^(n-1)}],{n,20}]]] (* Harvey P. Dale, Jan 04 2024 *)
  • PARI
    A134309(r,c)=if(r==c,2^max(r-1,0),0) \\ M. F. Hasler, Mar 29 2022

Formula

Triangle, T(0,0) = 1, then for n > 0, n zeros followed by 2^(n-1). Infinite lower triangular matrix with (1, 1, 2, 4, 8, 16, ...) in the main diagonal and the rest zeros.
G.f.: (1 - y*x)/(1 - 2*y*x). - Philippe Deléham, Feb 04 2012
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A011782(n), A081294(n), A081341(n), A092811(n), A093143(n), A067419(n) for x = 0, 1, 2, 3, 4, 5, 6 respectively. - Philippe Deléham, Feb 04 2012
Diagonal is A011782, other elements are 0. - M. F. Hasler, Mar 29 2022

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
Previous Showing 31-40 of 103 results. Next