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 41-50 of 56 results. Next

A093565 (8,1) Pascal triangle.

Original entry on oeis.org

1, 8, 1, 8, 9, 1, 8, 17, 10, 1, 8, 25, 27, 11, 1, 8, 33, 52, 38, 12, 1, 8, 41, 85, 90, 50, 13, 1, 8, 49, 126, 175, 140, 63, 14, 1, 8, 57, 175, 301, 315, 203, 77, 15, 1, 8, 65, 232, 476, 616, 518, 280, 92, 16, 1, 8, 73, 297, 708, 1092, 1134, 798, 372, 108, 17, 1, 8, 81, 370, 1005
Offset: 0

Views

Author

Wolfdieter Lang, Apr 22 2004

Keywords

Comments

The array F(8;n,m) gives in the columns m>=1 the figurate numbers based on A017077, including the decagonal numbers A001107,(see the W. Lang link).
This is the eighth member, d=8, in the family of triangles of figurate numbers, called (d,1) Pascal triangles: A007318 (Pascal), A029653, A093560-4, for d=1..7.
This is an example of a Riordan triangle (see A093560 for a comment and A053121 for a comment and the 1991 Shapiro et al. reference on the Riordan group). Therefore the o.g.f. for the row polynomials p(n,x):=Sum_{m=0..n} a(n,m)*x^m is G(z,x)=(1+7*z)/(1-(1+x)*z).
The SW-NE diagonals give A022098(n-1) = Sum_{k=0..ceiling((n-1)/2)} a(n-1-k,k), n >= 1, with n=0 value 7. Observation by Paul Barry, Apr 29 2004. Proof via recursion relations and comparison of inputs.

Examples

			Triangle begins
  [1];
  [8,  1];
  [8,  9,  1];
  [8, 17, 10,  1];
  ...
		

References

  • Kurt Hawlitschek, Johann Faulhaber 1580-1635, Veroeffentlichung der Stadtbibliothek Ulm, Band 18, Ulm, Germany, 1995, Ch. 2.1.4. Figurierte Zahlen.
  • Ivo Schneider: Johannes Faulhaber 1580-1635, Birkhäuser, Basel, Boston, Berlin, 1993, ch.5, pp. 109-122.

Crossrefs

Row sums: A005010(n-1), n>=1, 1 for n=0, alternating row sums are 1 for n=0, 7 for n=2 and 0 else.
The column sequences give for m=1..9: A017077, A001107 (decagonal), A007585, A051797, A051878, A050404, A052226, A056001, A056122.
Cf. A093644 (d=9).

Programs

  • Haskell
    a093565 n k = a093565_tabl !! n !! k
    a093565_row n = a093565_tabl !! n
    a093565_tabl = [1] : iterate
                   (\row -> zipWith (+) ([0] ++ row) (row ++ [0])) [8, 1]
    -- Reinhard Zumkeller, Aug 31 2014

Formula

a(n, m)=F(8;n-m, m) for 0<= m <= n, otherwise 0, with F(8;0, 0)=1, F(8;n, 0)=8 if n>=1 and F(8;n, m):=(8*n+m)*binomial(n+m-1, m-1)/m if m>=1.
Recursion: a(n, m)=0 if m>n, a(0, 0)= 1; a(n, 0)=8 if n>=1; a(n, m)= a(n-1, m) + a(n-1, m-1).
G.f. column m (without leading zeros): (1+7*x)/(1-x)^(m+1), m>=0.
T(n, k) = C(n, k) + 7*C(n-1, k). - Philippe Deléham, Aug 28 2005
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(8 + 17*x + 10*x^2/2! + x^3/3!) = 8 + 25*x + 52*x^2/2! + 90*x^3/3! + 140*x^4/4! + .... The same property holds more generally for Riordan arrays of the form ( f(x), x/(1 - x) ). - Peter Bala, Dec 22 2014

A093564 (7,1) Pascal triangle.

Original entry on oeis.org

1, 7, 1, 7, 8, 1, 7, 15, 9, 1, 7, 22, 24, 10, 1, 7, 29, 46, 34, 11, 1, 7, 36, 75, 80, 45, 12, 1, 7, 43, 111, 155, 125, 57, 13, 1, 7, 50, 154, 266, 280, 182, 70, 14, 1, 7, 57, 204, 420, 546, 462, 252, 84, 15, 1, 7, 64, 261, 624, 966, 1008, 714, 336, 99, 16, 1, 7, 71, 325, 885
Offset: 0

Views

Author

Wolfdieter Lang, Apr 22 2004

Keywords

Comments

The array F(7;n,m) gives in the columns m>=1 the figurate numbers based on A016993, including the 9-gonal numbers A001106, (see the W. Lang link).
This is the seventh member, d=7, in the family of triangles of figurate numbers, called (d,1) Pascal triangles: A007318 (Pascal), A029653, A093560-3, for d=1..6.
This is an example of a Riordan triangle (see A093560 for a comment and A053121 for a comment and the 1991 Shapiro et al. reference on the Riordan group). Therefore the o.g.f. for the row polynomials p(n,x):=Sum_{m=0..n} a(n,m)*x^m is G(z,x)=(1+6*z)/(1-(1+x)*z).
The SW-NE diagonals give A022097(n-1) = Sum_{k=0..ceiling((n-1)/2)} a(n-1-k,k), n >= 1, with n=0 value 6. Observation by Paul Barry, Apr 29 2004. Proof via recursion relations and comparison of inputs.

Examples

			Triangle begins
  [1];
  [7,  1];
  [7,  8,  1];
  [7, 15,  9,  1];
  ...
		

References

  • Kurt Hawlitschek, Johann Faulhaber 1580-1635, Veroeffentlichung der Stadtbibliothek Ulm, Band 18, Ulm, Germany, 1995, Ch. 2.1.4. Figurierte Zahlen.
  • Ivo Schneider: Johannes Faulhaber 1580-1635, Birkhäuser, Basel, Boston, Berlin, 1993, ch. 5, pp. 109-122.

Crossrefs

Row sums: A000079(n+2), n>=1, 1 for n=0, alternating row sums are 1 for n=0, 6 for n=2 and 0 otherwise.
The column sequences give for m=1..9: A016993, A001106 (9-gonal), A007584, A051740, A051877, A050403, A027818, A034266, A055994.
Cf. A093565 (d=8).

Programs

  • Haskell
    a093564 n k = a093564_tabl !! n !! k
    a093564_row n = a093564_tabl !! n
    a093564_tabl = [1] : iterate
                   (\row -> zipWith (+) ([0] ++ row) (row ++ [0])) [7, 1]
    -- Reinhard Zumkeller, Sep 01 2014
  • Maple
    N:= 20: # to get the first N rows
    T:=Matrix(N,N):
    T[1,1]:= 1:
    for m from 2 to N do
    T[m,1]:= 7:
    T[m,2..m]:= T[m-1,1..m-1] + T[m-1,2..m];
    od:
    for m from 1 to N do
    convert(T[m,1..m],list)
    od; # Robert Israel, Dec 28 2014

Formula

a(n, m)=F(7;n-m, m) for 0<= m <= n, otherwise 0, with F(7;0, 0)=1, F(7;n, 0)=7 if n>=1 and F(7;n, m):=(7*n+m)*binomial(n+m-1, m-1)/m if m>=1.
Recursion: a(n, m)=0 if m>n, a(0, 0)= 1; a(n, 0)=7 if n>=1; a(n, m)= a(n-1, m) + a(n-1, m-1).
G.f. column m (without leading zeros): (1+6*x)/(1-x)^(m+1), m>=0.
T(n, k) = C(n, k) + 6*C(n-1, k). - Philippe Deléham, Aug 28 2005
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(7 + 15*x + 9*x^2/2! + x^3/3!) = 7 + 22*x + 46*x^2/2! + 80*x^3/3! + 125*x^4/4! + .... The same property holds more generally for Riordan arrays of the form ( f(x), x/(1 - x) ). - Peter Bala, Dec 22 2014

A110813 A triangle of pyramidal numbers.

Original entry on oeis.org

1, 3, 1, 5, 4, 1, 7, 9, 5, 1, 9, 16, 14, 6, 1, 11, 25, 30, 20, 7, 1, 13, 36, 55, 50, 27, 8, 1, 15, 49, 91, 105, 77, 35, 9, 1, 17, 64, 140, 196, 182, 112, 44, 10, 1, 19, 81, 204, 336, 378, 294, 156, 54, 11, 1, 21, 100, 285, 540, 714, 672, 450, 210, 65, 12, 1, 23, 121, 385, 825
Offset: 0

Views

Author

Paul Barry, Aug 05 2005

Keywords

Comments

Triangle A029653 less first column. In general, the product (1/(1-x),x/(1-x))*(1+m*x,x) yields the Riordan array ((1+(m-1)x)/(1-x)^2,x/(1-x)) with general term T(n,k)=(m*n-(m-1)*k+1)*C(n+1,k+1)/(n+1). This is the reversal of the (1,m)-Pascal triangle, less its first column. - Paul Barry, Mar 01 2006
The column sequences give, for k=0..10: A005408 (odd numbers), A000290 (squares), A000330, A002415, A005585, A040977, A050486, A053347, A054333, A054334, A057788.
Linked to Chebyshev polynomials by the fact that this triangle with interpolated zeros in the rows and columns is a scaled version of A053120.
Row sums are A033484. Diagonal sums are A001911(n+1) or F(n+4)-2. Factors as (1/(1-x),x/(1-x))*(1+2x,x). Inverse is A110814 or (-1)^(n-k)*A104709.
This triangle is a subtriangle of the [2,1] Pascal triangle A029653 (omit there the first column).
Subtriangle of triangles in A029653, A131084, A208510. - Philippe Deléham, Mar 02 2012
This is the iterated partial sums triangle of A005408 (odd numbers). Such iterated partial sums of arithmetic progression sequences have been considered by Narayana Pandit (see the Mar 20 2015 comment on A000580 where the MacTutor History of Mathematics archive link and the Gottwald et al. reference, p. 338, are given). - Wolfdieter Lang, Mar 23 2015

Examples

			The number triangle T(n, k) begins
n\k  0   1   2   3    4    5    6   7   8  9 10 11
0:   1
1:   3   1
2:   5   4   1
3:   7   9   5   1
4:   9  16  14   6    1
5:  11  25  30  20    7    1
6:  13  36  55  50   27    8    1
7:  15  49  91 105   77   35    9   1
8:  17  64 140 196  182  112   44  10   1
9:  19  81 204 336  378  294  156  54  11  1
10: 21 100 285 540  714  672  450 210  65 12  1
11: 23 121 385 825 1254 1386 1122 660 275 77 13  1
... reformatted by _Wolfdieter Lang_, Mar 23 2015
As a number square S(n, k) = T(n+k, k), rows begin
  1,   1,   1,   1,   1,   1, ...
  3,   4,   5,   6,   7,   8, ...
  5,   9,  14,  20,  27,  35, ...
  7,  16,  30,  50,  77, 112, ...
  9,  25,  55, 105, 182, 294, ...
		

Crossrefs

Programs

  • Mathematica
    Table[2*Binomial[n + 1, k + 1] - Binomial[n, k], {n, 0, 10}, {k, 0, n}] // Flatten (* G. C. Greubel, Oct 19 2017 *)
  • PARI
    for(n=0,10, for(k=0,n, print1(2*binomial(n+1, k+1) - binomial(n,k), ", "))) \\ G. C. Greubel, Oct 19 2017

Formula

Number triangle T(n, k) = C(n, k)*(2n-k+1)/(k+1) = 2*C(n+1, k+1) - C(n, k); Riordan array ((1+x)/(1-x)^2, x/(1-x)); As a number square read by antidiagonals, T(n, k)=C(n+k, k)(2n+k+1)/(k+1).
Equals A007318 * an infinite bidiagonal matrix with 1's in the main diagonal and 2's in the subdiagonal. - Gary W. Adamson, Dec 01 2007
Binomial transform of an infinite lower triangular matrix with all 1's in the main diagonal, all 2's in the subdiagonal and the rest zeros. - Gary W. Adamson, Dec 12 2007
T(n,k) = 2*T(n-1,k) + T(n-1,k-1) - T(n-2,k) - T(n-2,k-1), T(0,0)=T(1,1)=1, T(1,0)=3, T(n,k)=0 if k<0 or if k>n. - Philippe Deléham, Nov 30 2013
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(7 + 9*x + 5*x^2/2! + x^3/3!) = 7 + 16*x + 30*x^2/2! + 50*x^3/3! + 77*x^4/4! + .... The same property holds more generally for Riordan arrays of the form ( f(x), x/(1 - x) ). - Peter Bala, Dec 21 2014
T(n, k) = ps(1, 2; k, n-k) with ps(a, d; k, n) = sum(ps(a, d; k-1, j), j=0..n) and input ps(a, d; 0, j) = a + d*j. See the iterated partial sums comment from Mar 23 2015 above. - Wolfdieter Lang, Mar 23 2015
From Franck Maminirina Ramaharo, May 21 2018: (Start)
T(n,k) = coefficients in the expansion of ((x + 2)*(x + 1)^n - 2)/x.
T(n,k) = A135278(n,k) + A135278(n-1,k).
T(n,k) = A097207(n,n-k).
G.f.: (y + 1)/((y - 1)*(x*y + y - 1)).
E.g.f.: ((x + 2)*exp(x*y + y) - 2*exp(y))/x.
(End)

A106195 Riordan array (1/(1-2*x), x*(1-x)/(1-2*x)).

Original entry on oeis.org

1, 2, 1, 4, 3, 1, 8, 8, 4, 1, 16, 20, 13, 5, 1, 32, 48, 38, 19, 6, 1, 64, 112, 104, 63, 26, 7, 1, 128, 256, 272, 192, 96, 34, 8, 1, 256, 576, 688, 552, 321, 138, 43, 9, 1, 512, 1280, 1696, 1520, 1002, 501, 190, 53, 10, 1, 1024, 2816, 4096, 4048, 2972, 1683, 743, 253, 64, 11
Offset: 0

Views

Author

Gary W. Adamson, Apr 24 2005; Paul Barry, May 21 2006

Keywords

Comments

Extract antidiagonals from the product P * A, where P = the infinite lower triangular Pascal's triangle matrix; and A = the Pascal's triangle array:
1, 1, 1, 1, ...
1, 2, 3, 4, ...
1, 3, 6, 10, ...
1, 4, 10, 20, ...
...
Row sums are Fibonacci(2n+2). Diagonal sums are A006054(n+2). Row sums of inverse are A105523. Product of Pascal triangle A007318 and A046854.
A106195 with an appended column of ones = A055587. Alternatively, k-th column (k=0, 1, 2) is the binomial transform of bin(n, k).
T(n,k) is the number of ideals in the fence Z(2n) having k elements of rank 1. - Emanuele Munarini, Mar 22 2011
Subtriangle of the triangle given by (0, 2, 0, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (1, 0, -1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938. - Philippe Deléham, Mar 22 2012

Examples

			Triangle begins
   1;
   2,   1;
   4,   3,   1;
   8,   8,   4,  1;
  16,  20,  13,  5,  1;
  32,  48,  38, 19,  6, 1;
  64, 112, 104, 63, 26, 7, 1;
(0, 2, 0, 0, 0, ...) DELTA (1, 0, -1/2, 1/2, 0, 0, ...) begins :
  1;
  0,  1;
  0,  2,   1;
  0,  4,   3,   1;
  0,  8,   8,   4,  1;
  0, 16,  20,  13,  5,  1;
  0, 32,  48,  38, 19,  6, 1;
  0, 64, 112, 104, 63, 26, 7, 1. - _Philippe Deléham_, Mar 22 2012
		

Crossrefs

Column 0 = 1, 2, 4...; (binomial transform of 1, 1, 1...); column 1 = 1, 3, 8, 20...(binomial transform of 1, 2, 3...); column 2: 1, 4, 13, 38...= binomial transform of bin(n, 2): 1, 3, 6...

Programs

  • Haskell
    a106195 n k = a106195_tabl !! n !! k
    a106195_row n = a106195_tabl !! n
    a106195_tabl = [1] : [2, 1] : f [1] [2, 1] where
       f us vs = ws : f vs ws where
         ws = zipWith (-) (zipWith (+) ([0] ++ vs) (map (* 2) vs ++ [0]))
                          ([0] ++ us ++ [0])
    -- Reinhard Zumkeller, Dec 16 2013
    
  • Magma
    [ (&+[Binomial(n-k, n-j)*Binomial(j, k): j in [0..n]]): k in [0..n], n in [0..10]]; // G. C. Greubel, Mar 15 2020
    
  • Maple
    T := (n, k) -> hypergeom([-n+k, k+1],[1],-1):
    seq(lprint(seq(simplify(T(n, k)), k=0..n)), n=0..7); # Peter Luschny, May 20 2015
  • Mathematica
    u[1, x_] := 1; v[1, x_] := 1; z = 16;
    u[n_, x_] := u[n - 1, x] + v[n - 1, x]
    v[n_, x_] := u[n - 1, x] + (x + 1) v[n - 1, x]
    Table[Factor[u[n, x]], {n, 1, z}]
    Table[Factor[v[n, x]], {n, 1, z}]
    cu = Table[CoefficientList[u[n, x], x], {n, 1, z}];
    TableForm[cu]
    Flatten[%]  (* A207605 *)
    Table[Expand[v[n, x]], {n, 1, z}]
    cv = Table[CoefficientList[v[n, x], x], {n, 1, z}];
    TableForm[cv]
    Flatten[%]  (* A106195 *)
    (* Clark Kimberling, Feb 19 2012 *)
    Table[Hypergeometric2F1[-n+k, k+1, 1, -1], {n, 0, 12}, {k, 0, n}]//Flatten (* G. C. Greubel, Mar 15 2020 *)
  • Maxima
    create_list(sum(binomial(i,k)*binomial(n-k,n-i),i,0,n),n,0,8,k,0,n); /* Emanuele Munarini, Mar 22 2011 */
    
  • Python
    from sympy import Poly, symbols
    x = symbols('x')
    def u(n, x): return 1 if n==1 else u(n - 1, x) + v(n - 1, x)
    def v(n, x): return 1 if n==1 else u(n - 1, x) + (x + 1)*v(n - 1, x)
    def a(n): return Poly(v(n, x), x).all_coeffs()[::-1]
    for n in range(1, 13): print(a(n)) # Indranil Ghosh, May 28 2017
    
  • Python
    from mpmath import hyp2f1, nprint
    def T(n, k): return hyp2f1(k - n, k + 1, 1, -1)
    for n in range(13): nprint([int(T(n, k)) for k in range(n + 1)]) # Indranil Ghosh, May 28 2017, after formula from Peter Luschny
    
  • Sage
    [[sum(binomial(n-k,n-j)*binomial(j,k) for j in (0..n)) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Mar 15 2020

Formula

T(n,k) = Sum_{j=0..n} C(n-k,n-j)*C(j,k).
From Emanuele Munarini, Mar 22 2011: (Start)
T(n,k) = Sum_{i=0..n-k} C(k,i)*C(n-k,i)*2^(n-k-i).
T(n,k) = Sum_{i=0..n-k} C(k,i)*C(n-i,k)*(-1)^i*2^(n-k-i).
Recurrence: T(n+2,k+1) = 2*T(n+1,k+1)+T(n+1,k)-T(n,k). (End)
From Clark Kimberling, Feb 19 2012: (Start)
Define u(n,x) = u(n-1,x)+v(n-1,x), v(n,x) = u(n-1,x)+(x+1)*v(n-1,x),
where u(1,x)=1, v(1,x)=1. Then v matches A106195 and u matches A207605. (End)
T(n,k) = 2*T(n-1,k) + T(n-1,k-1) - T(n-2,k-1). - Philippe Deléham, Mar 22 2012
T(n+k,k) is the coefficient of x^n y^k in 1/(1-2x-y+xy). - Ira M. Gessel, Oct 30 2012
T(n, k) = A208341(n+1,n-k+1), k = 0..n. - Reinhard Zumkeller, Dec 16 2013
T(n, k) = hypergeometric_2F1(-n+k, k+1, 1 , -1). - Peter Luschny, May 20 2015
G.f. 1/(1-2*x+x^2*y-x*y). - R. J. Mathar, Aug 11 2015
Sum_{k=0..n} T(n, k) = Fibonacci(2*n+2) = A088305(n+1). - G. C. Greubel, Mar 15 2020

Extensions

Edited by N. J. A. Sloane, Apr 09 2007, merging two sequences submitted independently by Gary W. Adamson and Paul Barry

A050168 a(0) = 1; for n > 0, a(n) = binomial(n, floor(n/2)) + binomial(n-1, floor(n/2)).

Original entry on oeis.org

1, 2, 3, 5, 9, 16, 30, 55, 105, 196, 378, 714, 1386, 2640, 5148, 9867, 19305, 37180, 72930, 140998, 277134, 537472, 1058148, 2057510, 4056234, 7904456, 15600900, 30458900, 60174900, 117675360, 232676280, 455657715, 901620585, 1767883500
Offset: 0

Views

Author

Keywords

Comments

a(n) = number of symmetric Dyck (n+1)-paths which either start UD or are prime, i.e., do not return to ground level until the terminal point. For example, a(2)=3 counts UUUDDD, UUDUDD, UDUDUD. - David Callan, Dec 09 2004
a(n) = number of symmetric Dyck (n+1)-paths that first return to ground level either right away or not until the very end, i.e., that remain Dyck paths when either the first two steps or the first and last steps are deleted. For example, a(2)=3 counts UUUDDD, UUDUDD, UDUDUD. - David Callan, Mar 02 2005
Hankel transform has g.f. (1-x(1+x)^2)/(1-x^2(1-x^2)). - Paul Barry, Sep 13 2007

Crossrefs

Maximum element in n-th row of A029653 (generalized Pascal triangle).
Cf. A001405.

Programs

  • Haskell
    a050168 n = a050168_list !! n
    a050168_list = 1 : zipWith (+) a001405_list (tail a001405_list)
    -- Reinhard Zumkeller, Mar 04 2012
    
  • Magma
    m:=40; R:=PowerSeriesRing(Rationals(), m); Coefficients(R!((1+x)/(2*x)*(Sqrt((1+2*x)/(1-2*x))-1))); // G. C. Greubel, Oct 26 2018
  • Mathematica
    CoefficientList[(1+x)/(2x) (Sqrt[(1+2x)/(1-2x)]-1) + O[x]^34, x] (* Jean-François Alcover, Aug 04 2018, after Sergei N. Gladkovskii *)
  • PARI
    x='x+O('x^40); Vec((1+x)/(2*x)*(sqrt((1+2*x)/(1-2*x))-1)) \\ G. C. Greubel, Oct 26 2018
    

Formula

Asymptotic to c*2^n/sqrt(n) where c = (3/4)*sqrt(2/Pi) = 0.598413... - Benoit Cloitre, Jan 13 2003
For n > 0: a(n) = A208976(n-1) + 1. -Reinhard Zumkeller, Mar 04 2012
Conjecture: (n+1)*a(n) + (n-3)*a(n-1) + 2*(-2*n+1)*a(n-2) + 4*(-n+3)*a(n-3) = 0. - R. J. Mathar, Nov 26 2012
G.f.: (1+x)/(2*x)*(sqrt((1+2*x)/(1-2*x))-1). - Sergei N. Gladkovskii, Jul 26 2013
G.f.: (1+x)/( W(0)*(1-2*x)*x) - (1+x)/(2*x), where W(k)= 1 + 1/(1 - 2*x/(2*x + (k+1)/(x*(2*k+1))/W(k+1) )); (continued fraction). - Sergei N. Gladkovskii, Jul 26 2013

A131084 A129686 * A007318. Riordan triangle (1+x, x/(1-x)).

Original entry on oeis.org

1, 1, 1, 0, 2, 1, 0, 2, 3, 1, 0, 2, 5, 4, 1, 0, 2, 7, 9, 5, 1, 0, 2, 9, 16, 14, 6, 1, 0, 2, 11, 25, 30, 20, 7, 1, 0, 2, 13, 36, 55, 50, 27, 8, 1, 0, 2, 15, 49, 91, 105, 77, 35, 9, 1
Offset: 1

Views

Author

Gary W. Adamson, Jun 14 2007

Keywords

Comments

Row sums = A098011 starting (1, 2, 3, 6, 12, 24, 48, ...). A131085 = A007318 * A129686
Riordan array (1+x, x/(1-x)). - Philippe Deléham, Mar 02 2012

Examples

			The triangle T(n, k) begins:
n\k 0  1  2  3   4   5   6   7  8  9 10 ...
0:  1
1:  1  1
2:  0  2  1
3:  0  2  3  1
4:  0  2  5  4   1
5:  0  2  7  9   5   1
6:  0  2  9 16  14   6   1
7:  0  2 11 25  30  20   7   1
8:  0  2 13 36  55  50  27   8  1
9:  0  2 15 49  91 105  77  35  9  1
10: 0  2 17 64 140 196 182 112 44 10  1
... Reformatted. - _Wolfdieter Lang_, Jan 06 2015
		

Crossrefs

Formula

A129686(signed): (1,1,1,...) in the main diagonal and (-1,-1,-1, ...) in the subsubdiagonal); * A007318, Pascal's triangle; as infinite lower triangular matrices.
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(2*x + 3*x^2/2! + x^3/3!) = 2*x + 7*x^2/2! + 16*x^3/3! + 30*x^4/4! + .... The same property holds more generally for Riordan arrays of the form ( f(x), x/(1 - x) ). - Peter Bala, Dec 22 2014
G.f. column k: (1+x)*(x/(1-x))^k, k >= 0. (Riordan property). - Wolfdieter Lang, Jan 06 2015
T(n, 0) = 1 if n=0 or n=1 else 0; T(n, k) = binomial(n-1,k-1) + binomial(n-2,k-1)*[n-1 >= k] if n >= k >= 1, where [S] = 1 if S is true, else 0, and T(n, k) = 0 if n < k. - Wolfdieter Lang, Jan 08 2015

Extensions

Edited: Added Riordan property (see Philippe Deléham comment) in name. - Wolfdieter Lang, Jan 06 2015

A208659 Triangle of coefficients of polynomials v(n,x) jointly generated with A185045; see the Formula section.

Original entry on oeis.org

1, 2, 2, 2, 6, 4, 2, 10, 16, 8, 2, 14, 36, 40, 16, 2, 18, 64, 112, 96, 32, 2, 22, 100, 240, 320, 224, 64, 2, 26, 144, 440, 800, 864, 512, 128, 2, 30, 196, 728, 1680, 2464, 2240, 1152, 256, 2, 34, 256, 1120, 3136, 5824, 7168, 5632, 2560, 512, 2, 38, 324
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2012

Keywords

Comments

Alternating row sums: 1, 0, 0, 0, 0, 0, 0, 0, 0, ...
For a discussion and guide to related arrays, see A208510.
As triangle T(n,k) with 0 <= k <= n, it is (2, -1, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938. - Philippe Deléham, Mar 04 2012

Examples

			First five rows:
  1;
  2,  2;
  2,  6,  4;
  2, 10, 16,  8;
  2, 14, 36, 40, 16;
First five polynomials v(n,x):
  1
  2 +  2x = 2*(1+x)
  2 +  6x +  4x^2 = 2*(1+x)*(1+2x)
  2 + 10x + 16x^2 +  8x^3 = 2*(1+x)*(1+2x)^2
  2 + 14x + 36x^2 + 40x^3 + 16x^4 = 2*(1+x)*(1+2x)^3
		

Crossrefs

Programs

  • Mathematica
    u[1, x_] := 1; v[1, x_] := 1; z = 16;
    u[n_, x_] := u[n - 1, x] + 2 x*v[n - 1, x];
    v[n_, x_] := u[n - 1, x] + 2 x*v[n - 1, x] + 1;
    Table[Expand[u[n, x]], {n, 1, z/2}]
    Table[Expand[v[n, x]], {n, 1, z/2}]
    cu = Table[CoefficientList[u[n, x], x], {n, 1, z}];
    TableForm[cu]
    Flatten[%]    (* A185045 *)
    Table[Expand[v[n, x]], {n, 1, z}]
    cv = Table[CoefficientList[v[n, x], x], {n, 1, z}];
    TableForm[cv]
    Flatten[%]    (* A208659 *)
    (* Using the function RiordanSquare defined in A321620 we also have: *)
    A208659 = RiordanSquare[(1 + x)/(1 - x), 16] // Flatten (* Gerry Martens, Oct 16 2022 *)

Formula

u(n,x) = u(n-1,x) + 2x*v(n-1,x),
v(n,x) = u(n-1,x) + 2x*v(n-1,x) + 1,
where u(1,x)=1, v(1,x)=1.
As triangle T(n,k) with 0 <= k <= n: T(n,k) = A029653(n,k)*2^k. - Philippe Deléham, Mar 04 2012
Sum_{k=0..n} T(n,k)*x^k = 2*(1+x)*(1+2x)^(n-2) for n > 1. - Philippe Deléham, Mar 05 2012

A129710 Triangle read by rows: T(n,k) is the number of Fibonacci binary words of length n and having k 01 subwords (0 <= k <= floor(n/2)). A Fibonacci binary word is a binary word having no 00 subword.

Original entry on oeis.org

1, 2, 2, 1, 2, 3, 2, 5, 1, 2, 7, 4, 2, 9, 9, 1, 2, 11, 16, 5, 2, 13, 25, 14, 1, 2, 15, 36, 30, 6, 2, 17, 49, 55, 20, 1, 2, 19, 64, 91, 50, 7, 2, 21, 81, 140, 105, 27, 1, 2, 23, 100, 204, 196, 77, 8, 2, 25, 121, 285, 336, 182, 35, 1, 2, 27, 144, 385, 540, 378, 112, 9, 2, 29, 169, 506
Offset: 0

Views

Author

Emeric Deutsch, May 12 2007

Keywords

Comments

Also number of Fibonacci binary words of length n and having k 10 subwords.
Row n has 1+floor(n/2) terms.
Row sums are the Fibonacci numbers (A000045).
T(n,0)=2 for n >= 1.
Sum_{k>=0} k*T(n,k) = A023610(n-2).
Triangle, with zeros omitted, given by (2, -1, 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. - Philippe Deléham, Jan 14 2012
Riordan array ((1+x)/(1-x), x^2/(1-x)), zeros omitted. - Philippe Deléham, Jan 14 2012

Examples

			T(5,2)=4 because we have 10101, 01101, 01010 and 01011.
Triangle starts:
  1;
  2;
  2, 1;
  2, 3;
  2, 5, 1;
  2, 7, 4;
  2, 9, 9, 1;
Triangle (2, -1, 0, 0, 0, 0, 0, ...) DELTA (0, 1/2, -1/2, 0, 0, 0, 0, 0, 0, ...) begins:
  1;
  2, 0;
  2, 1, 0;
  2, 3, 0, 0;
  2, 5, 1, 0, 0;
  2, 7, 4, 0, 0, 0;
  2, 9, 9, 1, 0, 0, 0;
		

Crossrefs

Programs

  • Maple
    T:=proc(n,k) if n=0 and k=0 then 1 elif k<=floor(n/2) then binomial(n-k,k)+binomial(n-k-1,k) else 0 fi end: for n from 0 to 18 do seq(T(n,k),k=0..floor(n/2)) od; # yields sequence in triangular form
  • Mathematica
    MapAt[# - 1 &, #, 1] &@ Table[Binomial[n - k, k] + Binomial[n - k - 1, k], {n, 0, 16}, {k, 0, Floor[n/2]}] // Flatten (* Michael De Vlieger, Nov 15 2019 *)

Formula

T(n,k) = binomial(n-k,k) + binomial(n-k-1,k) for n >= 1 and 0 <= k <= floor(n/2).
G.f. = G(t,z) = (1+z)/(1-z-tz^2).
Sum_{k=0..n} T(n,k)*x^k = (-1)^n*A078050(n), A057079(n), A040000(n), A000045(n+2), A000079(n), A006138(n), A026597(n), A133407(n), A133467(n), A133469(n), A133479(n), A133558(n), A133577(n), A063092(n) for x = -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 respectively. - Philippe Deléham, Jan 14 2012
T(n,k) = T(n-1,k) + T(n-2,k-1) with T(0,0)=1, T(1,0)=2, T(1,1)=0 and T(n,k) = 0 if k > n or if k < 0. - Philippe Deléham, Jan 14 2012

A134239 A127899(unsigned) * A007318.

Original entry on oeis.org

1, 4, 2, 6, 9, 3, 8, 20, 16, 4, 10, 35, 45, 25, 5, 12, 54, 96, 84, 36, 6, 14, 77, 175, 210, 140, 49, 7, 16, 104, 288, 440, 400, 216, 64, 8, 18, 135, 441, 819, 945, 693, 315, 81, 9, 20, 170, 640, 1400, 1960, 1820, 1120, 440, 100, 10
Offset: 0

Views

Author

Gary W. Adamson, Oct 14 2007

Keywords

Examples

			First few rows of the triangle are:
1;
4, 2;
6, 9, 3;
8, 20, 16, 4;
10, 35, 45, 25, 5;
12, 54, 96, 84, 36, 6;
14, 77, 175, 210, 140, 49, 7;
...
Row 3 = (8, 20, 16, 4) = 4 * (2, 5, 4, 1), where (2, 5, 4, 1) = row 3 of A029653, (2,1) Pascal's triangle.
		

Crossrefs

Cf. A127899, A029653, A128543 (row sums).

Programs

  • Haskell
    a134239 n k = a134239_tabl !! n !! k
    a134239_row n = a134239_tabl !! n
    a134239_tabl = [1] : zipWith (map . (*))
                   [2..] (map reverse $ tail a029635_tabl)
    -- Reinhard Zumkeller, Nov 14 2014

Formula

A127899(unsigned) * A007318.
Triangle, T(n,k) = (n+1) * A029635(n,n-k) for n > 0.

Extensions

Corrected by Philippe Deléham, Oct 17 2007
Formula corrected by Reinhard Zumkeller, Nov 14 2014

A277627 Square array read by antidiagonals downwards: T(n,k), n>=0, k>=0, in which column 0 is equal to A057427: 0, 1, 1, 1, ..., and for k > 0 column k lists two zeros followed by the partial sums of column k-1.

Original entry on oeis.org

0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 3, 1, 0, 0, 0, 0, 0, 1, 4, 1, 0, 0, 0, 0, 0, 0, 3, 5, 1, 0, 0, 0, 0, 0, 0, 0, 6, 6, 1, 0, 0, 0, 0, 0, 0, 0, 1, 10, 7, 1, 0, 0, 0, 0, 0, 0, 0, 0, 4, 15, 8, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 21, 9, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 20, 28, 10, 1
Offset: 0

Views

Author

Paul Curtz, Oct 24 2016

Keywords

Comments

In other words, for n > 0 the column k lists 2*k+1 zeros together with the partial sums of the positive terms of column k-1. - Omar E. Pol, Oct 25 2016
Comments from the author:
1) ZSPEC =
0, 0, 0, 0, 0, 0, 0, 0, ...
1, 0, 0, 0, 0, 0, 0, 0, ...
1, 0, 0, 0, 0, 0, 0, 0, ...
1, 1, 0, 0, 0, 0, 0, 0, ...
1, 2, 0, 0, 0, 0, 0, 0, ...
1, 3, 1, 0, 0, 0, 0, 0, ...
1, 4, 3, 0, 0, 0, 0, 0, ...
1, 5, 6, 1, 0, 0, 0, 0, ...
etc.
The columns are the autosequences of the first kind of the title (column 1: 0, 0, followed by A001477(n); column 2: 0, 0, 0, 0, followed by A000217(n), etc) .
The positive terms are the Pascal triangle written by diagonals (A011973).
First column: A060576(n+1). Or A057427(n), n>-1, thanks to Omar E. Pol.
Row sums: A000045(n), autosequence of the first kind.
Alternated row sums and subtractions: 0, 1, 1, 0, -1, -1, 0 = A128834(n), autosequence of the first kind.
Antidiagonal sums: 0, 1, 1, 1, 2, 3, 4, 6, ... = A078012(n+2).
Application.
Numbers in triangle leading to the Genocchi numbers -A226158(n).
We multiply the columns of ZSPEC by d(n) = 1, -1, 2, -8, 56, -608, ... from A005439.
Hence, with only the first 0,
0,
1,
1,
1, -1,
1, -2,
1, -3, 2,
1, -4, 6,
1, -5, 12, -8,
1, -6, 20, -32,
1, -7, 30, -80, 56,
1, -8, 42, -160, 280,
etc.
The row sums is -A226158(n).
2) Now consider the case of the autosequences of the second kind.
First step.
2, 1, 1, 1, 1, 1, ... = A054977(n)
0, 0, 2, 3, 4, 5, 6, 7, ... = A199969(n) with offset 0
0, 0, 0, 0, 2, 5, 9, 14, 20, 27, ... see A000096
etc.
The positive terms are ASPEC in A191302. By triangle, they are either A029653(n) with A029653(0) = 2 instead of 1 or A029635(n).
Second step. YSPEC =
2, 0, 0, 0, 0, 0, ...
1, 0, 0, 0, 0, 0, ...
1, 2, 0, 0, 0, 0, ...
1, 3, 0, 0, 0, 0, ...
1, 4, 2, 0, 0, 0, ...
1, 5, 5, 0, 0, 0, ...
1, 6, 9, 2, 0, 0, ...
1, 7, 14, 7, 0, 0, ...
etc.
Diagonals by triangle: A029635(n).
This is the companion to ZSPEC.
Row sums: A000032(n), autosequence of the second kind.
Alternated row sums and subtractions: period 6 repeat 2, 1, -1, -2, -1, 1 = A087204(n), autosequence of the second kind.
Application.
Numbers in triangle leading to A230324(n), a companion to -A226158(n).
We multiply the columns of YSPEC by d(n) 1, -1, 2, -8, 56, ... (see above).
Hence, without zeros:
2,
1,
1, -2,
1, -3,
1, -4, 4,
1, -5, 10,
1, -6, 18, -16,
1, -7, 28, -56,
1, -8, 40, -128, 112,
1, -9, 54, -240, 504,
etc.
The row sum is A230324(n).

Crossrefs

Cf. A011973 (without 0's), A007318 (Pascal's triangle).
Cf. A000045 (row sums), A078012 (antidiagonal sums).
Columns: A060576 or A057427 (k=0), A001477 (k=1), A000217 (k=2).

Programs

  • Mathematica
    kMax = 13; col[0] = Join[{0}, Array[1&, kMax]]; col[k_] := col[k] = Join[{0, 0}, col[k-1][[1 ;; -3]] // Accumulate]; T[n_, k_] := col[k][[n+1]]; Table[T[n-k, k], {n, 0, kMax}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Nov 15 2016 *)

Extensions

Better definition from Omar E. Pol, Oct 25 2016
Previous Showing 41-50 of 56 results. Next