A193722 -id:A193722 - cp's OEIS frontend

A196662 Expansion of g.f. (1-3x)/(1-10x).

1, 7, 70, 700, 7000, 70000, 700000, 7000000, 70000000, 700000000, 7000000000, 70000000000, 700000000000, 7000000000000, 70000000000000, 700000000000000, 7000000000000000, 70000000000000000, 700000000000000000, 7000000000000000000, 70000000000000000000

Offset: 0

Philippe Deléham, Oct 05 2011

Index entries for linear recurrences with constant coefficients, signature (10).

Cf. A002001, A193722, A196661.

CoefficientList[Series[(1-3x)/(1-10x),{x,0,20}],x] (* or *) LinearRecurrence[ {10},{1,7},30] (* or *) Join[{1},NestList[10#&,7,20]] (* Harvey P. Dale, Dec 18 2021 *)

a(0) = 1, a(n) = 7*10^(n-1) for n>0.
a(n) = Sum_{k=0..n} A193722(n,k)*3^k.
From Elmo R. Oliveira, Mar 18 2025: (Start)
E.g.f.: (7*exp(10*x) + 3)/10.
a(n) = 10*a(n-1). (End)

A193738 Triangular array: the fusion of polynomial sequences P and Q given by p(n,x)=q(n,x)=x^n+x^(n-1)+...+x+1.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 1, 2, 3, 3, 1, 2, 3, 4, 4, 1, 2, 3, 4, 5, 5, 1, 2, 3, 4, 5, 6, 6, 1, 2, 3, 4, 5, 6, 7, 7, 1, 2, 3, 4, 5, 6, 7, 8, 8, 1, 2, 3, 4, 5, 6, 7, 8, 9, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 11, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 12, 1, 2, 3, 4

Offset: 0

Clark Kimberling, Aug 04 2011

See A193722 for the definition of fusion of two sequences of polynomials or triangular arrays.

			First six rows:
1
1....1
1....2....2
1....2....3....3
1....2....3....4...4
1....2....3....4...5...5

Reinhard Zumkeller, Rows n = 0..100 of triangle, flattened

Cf. A193722, A193739.

a193738 n k = a193738_tabl !! n !! k
a193738_row n = a193738_tabl !! n
a193738_tabl = map reverse a193739_tabl
-- Reinhard Zumkeller, May 11 2013

z = 12;
p[0, x_] := 1
p[n_, x_] := x*p[n - 1, x] + 1; p[n_, 0] := p[n, x] /. x -> 0
q[n_, x_] := p[n, x]
t[n_, k_] := Coefficient[p[n, x], x^(n - k)];
t[n_, n_] := p[n, x] /. x -> 0;
w[n_, x_] := Sum[t[n, k]*q[n + 1 - k, x], {k, 0, n}]; w[-1, x_] := 1
g[n_] := CoefficientList[w[n, x], {x}]
TableForm[Table[Reverse[g[n]], {n, -1, z}]]
Flatten[Table[Reverse[g[n]], {n, -1, z}]]  (* A193738 *)
TableForm[Table[g[n], {n, -1, z}]]
Flatten[Table[g[n], {n, -1, z}]]   (* A193739 *)

A115255 "Correlation triangle" of central binomial coefficients A000984.

Original entry on oeis.org

1, 2, 2, 6, 5, 6, 20, 14, 14, 20, 70, 46, 41, 46, 70, 252, 160, 134, 134, 160, 252, 924, 574, 466, 441, 466, 574, 924, 3432, 2100, 1672, 1534, 1534, 1672, 2100, 3432, 12870, 7788, 6118, 5506, 5341, 5506, 6118, 7788, 12870, 48620, 29172, 22692, 20152, 19174

Offset: 0

Paul Barry, Jan 18 2006

Row sums are A033114. Diagonal sums are A115256. T(2n,n) is A115257. Corresponds to the triangle of antidiagonals of the correlation matrix of the sequence array for C(2n,n).

Let s=(1,2,6,20,...), (central binomial coefficients), and let T be the infinite square matrix whose n-th row is formed by putting n-1 zeros before the terms of s. Let T' be the transpose of T. Then A115255 represents the matrix product M=T'*T. M is the self-fusion matrix of s, as defined at A193722. See A203005 for characteristic polynomials of principal submatrices of M, with interlacing zeros. - Clark Kimberling, Dec 27 2011

			Triangle begins:
  1;
  2, 2;
  6, 5, 6;
  20, 14, 14, 20;
  70, 46, 41, 46, 70;
  252, 160, 134, 134, 160, 252;
Northwest corner (square format):
  1    2    6    20    70
  2    5    14   46    160
  6    14   41   134   466
  20   46   134  441   1534

Cf. A203004, A203001, A202453.

s[k_] := Binomial[2 k - 2, k - 1];
U = NestList[Most[Prepend[#, 0]] &, #, Length[#] - 1] &[Table[s[k], {k, 1, 15}]];
L = Transpose[U]; M = L.U; TableForm[M]
m[i_, j_] := M[[i]][[j]]; (* A115255 in square format *)
Flatten[Table[m[i, n + 1 - i], {n, 1, 12}, {i, 1, n}]]
f[n_] := Sum[m[i, n], {i, 1, n}] + Sum[m[n, j], {j, 1, n - 1}]; Table[f[n], {n, 1, 12}]
Table[Sqrt[f[n]], {n, 1, 12}]  (* A006134 *)
Table[m[1, j], {j, 1, 12}]     (* A000984 *)
Table[m[j, j], {j, 1, 12}]     (* A115257 *)
Table[m[j, j + 1], {j, 1, 12}] (* 2*A082578 *)
(* Clark Kimberling, Dec 27 2011 *)

G.f.: 1/(sqrt(1-4*x)*sqrt(1-4*x*y)*(1-x^2*y)) (format due to Christian G. Bower).

T(n, k) = Sum_{j=0..n} [j<=k]*C(2*k-2*j, k-j)*[j<=n-k]*C(2*n-2*k-2*j, n-k-j).

A128175 Binomial transform of A128174.

Original entry on oeis.org

1, 1, 1, 2, 2, 1, 4, 4, 3, 1, 8, 8, 7, 4, 1, 16, 16, 15, 11, 5, 1, 32, 32, 31, 26, 16, 6, 1, 64, 64, 63, 57, 42, 22, 7, 1, 128, 128, 127, 120, 99, 64, 29, 8, 1, 256, 256, 255, 247, 219, 163, 93, 37, 9, 1

Offset: 1

Gary W. Adamson, Feb 17 2007

Row sums = A045623: (1, 2, 5, 12, 28, 64, 144, ...).
A128176 = A128174 * A007318.
Riordan array ((1-x)/(1-2x),x/(1-x)). - Paul Barry, Oct 02 2010
Fusion of polynomial sequences p(n,x) = (x+1)^n and q(n,x) = x^n + x^(n-1) + ... + x + 1; see A193722 for the definition of fusion. - Clark Kimberling, Aug 04 2011

			First few rows of the triangle:
   1;
   1,  1;
   2,  2,  1;
   4,  4,  3,  1;
   8,  8,  7,  4,  1;
  16, 16, 15, 11,  5,  1;
  32, 32, 31, 26, 16,  6,  1;
  64, 64, 63, 57, 42, 22,  7,  1;
  ...
From _Paul Barry_, Oct 02 2010: (Start)
Production matrix is
  1, 1;
  1, 1, 1;
  0, 0, 1, 1;
  0, 0, 0, 1, 1;
  0, 0, 0, 0, 1, 1;
  0, 0, 0, 0, 0, 1, 1;
  0, 0, 0, 0, 0, 0, 1, 1;
  0, 0, 0, 0, 0, 0, 0, 1, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 1, 1;
  ...
Matrix logarithm is
  0;
  1, 0;
  1, 2, 0;
  1, 1, 3, 0;
  1, 1, 1, 4, 0;
  1, 1, 1, 1, 5, 0;
  1, 1, 1, 1, 1, 6, 0;
  1, 1, 1, 1, 1, 1, 7, 0;
  1, 1, 1, 1, 1, 1, 1, 8, 0;
  1, 1, 1, 1, 1, 1, 1, 1, 9,  0;
  1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 0;
  ... (End)
.
First few rows of the array:
  1, 1,  2,  4,  8,  16, ...
  1, 2,  4,  8, 16,  32, ...
  1, 3,  7, 15, 31,  63, ...
  1, 4, 11, 26, 57, 120, ...
  1, 5, 16, 42, 99, 219, ...
  ...

Cf. A045623, A128176, A007318.

A193820 := (n,k) -> `if`(k=0 or n=0, 1, A193820(n-1,k-1)+A193820(n-1,k));
A128175 := (n,k) -> A193820(n-1,n-k);
seq(print(seq(A128175(n,k),k=0..n)),n=0..10); # Peter Luschny, Jan 22 2012

z = 10; a = 1; b = 1;
p[n_, x_] := (a*x + b)^n
q[0, x_] := 1
q[n_, x_] := x*q[n - 1, x] + 1; q[n_, 0] := q[n, x] /. x -> 0;
t[n_, k_] := Coefficient[p[n, x], x^k]; t[n_, 0] := p[n, x] /. x -> 0;
w[n_, x_] := Sum[t[n, k]*q[n + 1 - k, x], {k, 0, n}]; w[-1, x_] := 1
g[n_] := CoefficientList[w[n, x], {x}]
TableForm[Table[Reverse[g[n]], {n, -1, z}]]
Flatten[Table[Reverse[g[n]], {n, -1, z}]]   (* A193820 *)
TableForm[Table[g[n], {n, -1, z}]]
Flatten[Table[g[n], {n, -1, z}]]  (* A128175 *)
(* Clark Kimberling, Aug 06 2011 *)
(* function dotTriangle[] is defined in A128176 *)
a128175[r_] := dotTriangle[Binomial, If[EvenQ[#1 + #2], 1, 0]&, r]
TableForm[a128174[7]] (* triangle *)
Flatten[a128174[9]] (* data *) (* Hartmut F. W. Hoft, Mar 15 2017 *)

A007318 * A128174 as infinite lower triangular matrices.
Antidiagonals of an array in which the first row = (1, 1, 2, 4, 8, 16, ...); and (n+1)-th row = partial sums of n-th row.
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(4 + 4*x + 3*x^2/2! + x^3/3!) = 4 + 8*x + 15*x^2/2! + 26*x^3/3! + 42*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
T(n, k) = Sum_{i=0..floor((n-k)/2)} binomial(n-1, k-1+2*i). - Werner Schulte, Mar 05 2025
T(n, k) = binomial(n-1, k-1)*hypergeom([1, (k-n)/2, (1+k-n)/2], [(1+k)/2, k/2], 1). - Stefano Spezia, Mar 07 2025

A153861 Triangle read by rows, binomial transform of triangle A153860.

Original entry on oeis.org

1, 1, 1, 2, 3, 1, 3, 6, 4, 1, 4, 10, 10, 5, 1, 5, 15, 20, 15, 6, 1, 6, 21, 35, 35, 21, 7, 1, 7, 28, 56, 70, 56, 28, 8, 1, 8, 36, 84, 126, 126, 84, 36, 9, 1, 9, 45, 120, 210, 252, 210, 120, 45, 10, 1, 10, 55, 165, 330, 462, 462, 330, 165, 55, 11, 1

Offset: 0

Gary W. Adamson, Jan 03 2009

Row sums = A095121: (1, 2, 6, 14, 30, 62, 126,...).
Triangle T(n,k), 0<=k<=n, read by rows, given by [1,1,-1,1,0,0,0,0,0,0,0,...] DELTA [1,0,-1,1,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938. - Philippe Deléham, Jan 03 2009
A123110*A007318 as infinite lower triangular matrices. - Philippe Deléham, Jan 06 2009
A153861 is the fusion of polynomial sequences p(n,x)=x^n+x^(n-1)+...+x+1 and q(n,x)=(x+1)^n; see A193722 for the definition of fusion. - Clark Kimberling, Aug 06 2011

			First few rows of the triangle are:
1;
1, 1;
2, 3, 1;
3, 6, 4, 1;
4, 10, 10, 5, 1;
5, 15, 20, 15, 6, 1;
6, 21, 35, 35, 21, 7, 1;
7, 28, 56, 70, 56, 28, 8, 1;
8, 36, 84, 126, 126, 84, 36, 9, 1;
9, 45, 120, 210, 252, 210, 120, 45, 10, 1;
...

G. C. Greubel, Table of n, a(n) for the first 46 rows

Cf. A153860, A095121, A130405.

This is A137396 without the initial column and without signs.

z = 10; c = 1; d = 1;
p[0, x_] := 1
p[n_, x_] := x*p[n - 1, x] + 1; p[n_, 0] := p[n, x] /. x -> 0;
q[n_, x_] := (c*x + d)^n
t[n_, k_] := Coefficient[p[n, x], x^k]; t[n_, 0] := p[n, x] /. x -> 0;
w[n_, x_] := Sum[t[n, k]*q[n + 1 - k, x], {k, 0, n}]; w[-1, x_] := 1
g[n_] := CoefficientList[w[n, x], {x}]
TableForm[Table[Reverse[g[n]], {n, -1, z}]]
Flatten[Table[Reverse[g[n]], {n, -1, z}]]  (* A193815 *)
TableForm[Table[g[n], {n, -1, z}]]
Flatten[Table[g[n], {n, -1, z}]]   (* A153861 *)
(* Clark Kimberling, Aug 06 2011 *)

Triangle read by rows, A007318 * A153860. Remove left two columns of Pascal's triangle and append (1, 1, 2, 3, 4, 5,...).
As a recursive operation by way of example, row 3 = (3, 6, 4, 1) =
[1, 1, 1, 0] * (flipped Pascal's triangle matrix) = [1, 3, 3, 1]
[1, 2, 1, 0]
[1, 1, 0, 0]
[1, 0, 0, 0].
(Cf. analogous operation in A130405, but in A153861 the linear multiplier = [1,1,1,...,0].)
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,0) = T(1,1) = T(2,2) = 1, T(2,0)=2, T(2,1)=3, T(n,k)=0 if k<0 or if k>n. - Philippe Deléham, Dec 15 2013
G.f.: (1-x+x^2+x^2*y)/((x-1)*(-1+x+x*y)). - R. J. Mathar, Aug 11 2015

A185957 Second accumulation array of the array min{n,k}, by antidiagonals.

Original entry on oeis.org

1, 3, 3, 6, 10, 6, 10, 21, 21, 10, 15, 36, 46, 36, 15, 21, 55, 81, 81, 55, 21, 28, 78, 126, 146, 126, 78, 28, 36, 105, 181, 231, 231, 181, 105, 36, 45, 136, 246, 336, 371, 336, 246, 136, 45, 55, 171, 321, 461, 546, 546, 461, 321, 171, 55, 66, 210, 406, 606, 756, 812, 756

Offset: 1

Clark Kimberling, Feb 07 2011

A member of the accumulation chain
... < A003982 < A003783 < A115262 < A185957 <...,
where A003783(n,k)=min{n,k}.  See A144112 for the definition of accumulation array.
A185957 also gives the symmetric matrix based on the triangular numbers s=(1,3,6,10,15,....; viz, let T be the infinite square matrix whose n-th row is formed by putting n-1 zeros before the terms of s.  Let T' be the transpose of T.  Then A185957 represents the matrix product M=T'*T.  M is the self-fusion matrix of s, as defined at A193722.  See A202678 for characteristic polynomials of principal submatrices of M.

			Northwest corner:
1....3....6....10...15
3....10...21...36...55
6....21...46...81...126
10...36...81...146..231

G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened

Cf. A144112, A003783, A115262.

U = NestList[Most[Prepend[#, 0]] &, #, Length[#] - 1] &[Table[k (k + 1)/2, {k, 1, 15}]];
L = Transpose[U]; M = L.U; TableForm[M]
m[i_, j_] := M[[i]][[j]];
Flatten[Table[m[i, n + 1 - i], {n, 1, 12}, {i, 1, n}]]
f[n_] := Sum[m[i, n], {i, 1, n}] + Sum[m[n, j], {j, 1, n - 1}]
Table[f[n], {n, 1, 12}]
Table[Sqrt[f[n]], {n, 1, 12}] (* A000292 *)
Table[m[1, j], {j, 1, 12}] (* A000217 *)
Table[m[2, j], {j, 1, 12}] (* A014105 *)
Table[m[j, j], {j, 1, 12}] (* A024166 *)
Table[m[j, j + 1], {j, 1, 12}] (* A112851 *)
Table[Sum[m[i, n + 1 - i], {i, 1, n}], {n, 1, 12}] (* A001769 *)

A196663 Expansion of g.f. (1-4x)/(1-13x).

Original entry on oeis.org

1, 9, 117, 1521, 19773, 257049, 3341637, 43441281, 564736653, 7341576489, 95440494357, 1240726426641, 16129443546333, 209682766102329, 2725875959330277, 35436387471293601, 460673037126816813, 5988749482648618569, 77853743274432041397, 1012098662567616538161

Offset: 0

Philippe Deléham, Oct 05 2011

Index entries for linear recurrences with constant coefficients, signature (13).

Cf. A002001, A193722, A196661, A196662.

a(0) = 1, a(n) = 9*13^(n-1) for n>0.
a(n) = Sum_{k=0..n} A193722(n,k)*4^k.
From Elmo R. Oliveira, Mar 18 2025: (Start)
E.g.f.: (9*exp(13*x) + 4)/13.
a(n) = 13*a(n-1). (End)

A203001 Symmetric matrix based on A007598, by antidiagonals.

Original entry on oeis.org

1, 1, 1, 4, 2, 4, 9, 5, 5, 9, 25, 13, 18, 13, 25, 64, 34, 41, 41, 34, 64, 169, 89, 113, 99, 113, 89, 169, 441, 233, 290, 266, 266, 290, 233, 441, 1156, 610, 765, 689, 724, 689, 765, 610, 1156, 3025, 1597, 1997, 1811, 1866, 1866, 1811, 1997, 1597, 3025

Offset: 1

Clark Kimberling, Dec 27 2011

Let s=A007598 (squared Fibonacci numbers), and let T be the infinite square matrix whose n-th row is formed by putting n-1 zeros before the terms of s. Let T' be the transpose of T. Then A203001 represents the matrix product M=T'*T. M is the self-fusion matrix of s, as defined at A193722. See A203002 for characteristic polynomials of principal submatrices of M, with interlacing zeros.

			Northwest corner:
1...1...4....9....25....64
1...2...5....13...34....89
4...5...18...41...113...290
9...13..41...99...266...724

Cf. A203002, A202453.

s[k_] := Fibonacci[k]^2;
U = NestList[Most[Prepend[#, 0]] &, #, Length[#] - 1] &[Table[s[k], {k, 1, 15}]];
L = Transpose[U]; M = L.U; TableForm[M]
m[i_, j_] := M[[i]][[j]];
Flatten[Table[m[i, n + 1 - i], {n, 1, 12}, {i, 1, n}]]
f[n_] := Sum[m[i, n], {i, 1, n}] + Sum[m[n, j], {j, 1, n - 1}]
Table[f[n], {n, 1, 12}]
Table[Sqrt[f[n]], {n, 1, 12}]   (* A001654 *)
Table[m[1, j], {j, 1, 12}]      (* A007598 *)
Table[m[2, j], {j, 1, 12}]      (* A001519 *)
Table[m[j, j], {j, 1, 12}]      (* A005969 *)

A193734 Triangular array: the fusion of polynomial sequences P and Q given by p(n,x)=(2x+1)^n and q(n,x)=(x+2)^n.

Original entry on oeis.org

1, 1, 2, 1, 6, 8, 1, 10, 32, 32, 1, 14, 72, 160, 128, 1, 18, 128, 448, 768, 512, 1, 22, 200, 960, 2560, 3584, 2048, 1, 26, 288, 1760, 6400, 13824, 16384, 8192, 1, 30, 392, 2912, 13440, 39424, 71680, 73728, 32768, 1, 34, 512, 4480, 25088, 93184, 229376, 360448, 327680, 131072

Offset: 0

Clark Kimberling, Aug 04 2011

See A193722 for the definition of fusion of two sequences of polynomials or triangular arrays.

Triangle T(n,k), read by rows, given by (1,0,0,0,0,0,0,0,...) DELTA (2,2,0,0,0,0,0,0,0,...) where DELTA is the operator defined in A084938. - Philippe Deléham, Oct 05 2011

			First six rows:
  1;
  1,  2;
  1,  6,   8;
  1, 10,  32,  32;
  1, 14,  72, 160, 128;
  1, 18, 128, 448, 768, 512;

G. C. Greubel, Rows n = 0..50 of the triangle, flattened

Cf. A084938, A193722, A193735.

Cf. A005053, A026581, A081294, A133494.

function T(n, k) // T = A193734
  if k lt 0 or k gt n then return 0;
  elif n lt 2 then return k+1;
  else return T(n-1, k) + 4*T(n-1, k-1);
  end if;
end function;
[T(n, k): k in [0..n], n in [0..12]]; // G. C. Greubel, Nov 19 2023

(* First program *)
z = 8; a = 2; b = 1; c = 1; d = 2;
p[n_, x_] := (a*x + b)^n ; q[n_, x_] := (c*x + d)^n
t[n_, k_] := Coefficient[p[n, x], x^k]; t[n_, 0] := p[n, x] /. x -> 0;
w[n_, x_] := Sum[t[n, k]*q[n + 1 - k, x], {k, 0, n}]; w[-1, x_] := 1
g[n_] := CoefficientList[w[n, x], {x}]
TableForm[Table[Reverse[g[n]], {n, -1, z}]]
Flatten[Table[Reverse[g[n]], {n, -1, z}]] (* A193734 *)
TableForm[Table[g[n], {n, -1, z}]]
Flatten[Table[g[n], {n, -1, z}]]      (* A193735 *)
(* Second program *)
T[n_, k_]:= T[n,k]= If[k<0 || k>n, 0, If[n<2, k+1, T[n-1,k] +4*T[n-1,k-1]]];
Table[T[n,k], {n,0,12}, {k,0,n}]//TableForm (* G. C. Greubel, Nov 19 2023 *)

def T(n, k): # T = A193734
    if (k<0 or k>n): return 0
    elif (n<2): return k+1
    else: return T(n-1, k) +4*T(n-1, k-1)
flatten([[T(n, k) for k in range(n+1)] for n in range(13)]) # G. C. Greubel, Nov 19 2023

T(n,k) = 4*T(n-1,k-1) + T(n-1,k) with T(0,0)=T(1,0)=1 and T(1,1)=2. - Philippe Deléham, Oct 05 2011
G.f.: (1 - 2*x*y)/(1 - x - 4*x*y). - R. J. Mathar, Aug 11 2015
From G. C. Greubel, Nov 19 2023: (Start)
T(n, n) = A081294(n).
Sum_{k=0..n} T(n, k) = A005053(n).
Sum_{k=0..n} (-1)^k * T(n, k) = (-1)^n * A133494(n).
Sum_{k=0..floor(n/2)} T(n-k, k) = A026581(n-1) + (1/2)*[n=0]. (End)

A193820 Triangular array: the fusion of polynomial sequences P and Q given by p(n,x)=(x+1)^n and q(n,x)=x^n+x^(n-1)+...+x+1.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 1, 3, 4, 4, 1, 4, 7, 8, 8, 1, 5, 11, 15, 16, 16, 1, 6, 16, 26, 31, 32, 32, 1, 7, 22, 42, 57, 63, 64, 64, 1, 8, 29, 64, 99, 120, 127, 128, 128, 1, 9, 37, 93, 163, 219, 247, 255, 256, 256, 1, 10, 46, 130, 256, 382, 466, 502, 511, 512, 512, 1, 11, 56

Offset: 0

Clark Kimberling, Aug 06 2011

See A193722 for the definition of fusion of two sequences of polynomials or triangular arrays.

Variant of A054143 and A008949. - R. J. Mathar, Mar 03 2013

			First six rows:
  1
  1....1
  1....2....2
  1....3....4....4
  1....4....7....8....8
  1....5....11...15...16...16

Cf. A193722, A128175, A193823, A045623 (row sums), A009766.

Cf. A054143, A008949.

A193820 := (n,k) -> `if`(k=0 or n=0,1, A193820(n-1,k-1)+A193820(n-1,k));
seq(print(seq(A193820(n,k),k=0..n+1)),n=0..10); # Peter Luschny, Jan 22 2012

z = 10; a = 1; b = 1;
p[n_, x_] := (a*x + b)^n
q[0, x_] := 1
q[n_, x_] := x*q[n - 1, x] + 1; q[n_, 0] := q[n, x] /. x -> 0;
t[n_, k_] := Coefficient[p[n, x], x^k]; t[n_, 0] := p[n, x] /. x -> 0;
w[n_, x_] := Sum[t[n, k]*q[n + 1 - k, x], {k, 0, n}]; w[-1, x_] := 1
g[n_] := CoefficientList[w[n, x], {x}]
TableForm[Table[Reverse[g[n]], {n, -1, z}]]
Flatten[Table[Reverse[g[n]], {n, -1, z}]]   (* A193820 *)
TableForm[Table[g[n], {n, -1, z}]]
Flatten[Table[g[n], {n, -1, z}]]  (* A128175 *)

From Peter Bala, Jul 16 2013: (Start)
T(n,k) = sum {i = 0..k} binomial(n-1,k-i) for 0 <= k <= n.
O.g.f.: (1 - x*t)^2/( (1 - 2*x*t)*(1 - (1 + x)*t) ) = 1 + (1 + x)*t + (1 + 2*x + 2*x^2)*t^2 + ....
The n-th row polynomial R(n,x) for n >= 1 is given by R(n,x) = 1/(1 - x)*( (x + 1)^(n-1) - 2^(n-1)*x^(n+1) ). Cf. A193823. (End)

cp's OEIS Frontend

A196662 Expansion of g.f. (1-3*x)/(1-10*x).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A193738 Triangular array: the fusion of polynomial sequences P and Q given by p(n,x)=q(n,x)=x^n+x^(n-1)+...+x+1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

A115255 "Correlation triangle" of central binomial coefficients A000984.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A128175 Binomial transform of A128174.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Formula

A153861 Triangle read by rows, binomial transform of triangle A153860.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A185957 Second accumulation array of the array min{n,k}, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A196663 Expansion of g.f. (1-4*x)/(1-13*x).

Views

Author

Keywords

Links

Crossrefs

Formula

A203001 Symmetric matrix based on A007598, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A193734 Triangular array: the fusion of polynomial sequences P and Q given by p(n,x)=(2x+1)^n and q(n,x)=(x+2)^n.

A196662 Expansion of g.f. (1-3x)/(1-10x).

A196663 Expansion of g.f. (1-4x)/(1-13x).