A127243 -id:A127243 - cp's OEIS frontend

A127253 Product of number triangles A127243 and A127248.

1, 0, 1, -1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset: 0

Paul Barry, Jan 10 2007

Rows containing -1 entries are indexed by twice the odious numbers given by A091855.

			Triangle begins:
  1;
  0, 1;
 -1, 0, 1;
  0, 0, 0, 1;
  0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, -1, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  ...

Row sums are A127254.

Cf. A000069, A091855, A127243, A127248.

T1[n_, k_] := SeriesCoefficient[(1 + ThueMorse[1 + k]*x)*x^k, {x, 0, n}]; (* A127243 *)
T2[n_, k_] := SeriesCoefficient[(1 - ThueMorse[1 + k]*x)*x^k, {x, 0, n}]; (* A127248 *)
T[n_, k_] := Sum[T2[n, j]*T1[j, k], {j, 0, n}];
Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Amiram Eldar, Aug 04 2023 *)

A127244 A Thue-Morse signed falling factorial triangle.

Original entry on oeis.org

1, -1, 1, 1, -1, 1, 0, 0, 0, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 1, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset: 0

Paul Barry, Jan 10 2007

			Triangle begins:
  1;
  -1, 1;
  1, -1, 1;
  0, 0, 0, 1;
  0, 0, 0, -1, 1;
  0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, -1, 1;
  0, 0, 0, 0, 0, 0, 1, -1, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  ...

Inverse of A127243.
Row sums are A127245.
Cf. A010060.

T[n_, k_] := (-1)^(n-k) * Product[ThueMorse[i], {i, k+1, n}]; Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Amiram Eldar, Aug 04 2023 *)

T(n,k) = (-1)^(n-k) * Product_{j=0..n-k-1} A010060(n-j) * [k<=n].

More terms from Amiram Eldar, Aug 04 2023

A127249 A product of Thue-Morse related triangles.

Original entry on oeis.org

1, 2, 1, 2, 2, 1, 0, 0, 0, 1, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 2, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset: 0

Paul Barry, Jan 10 2007

			Triangle begins:
  1;
  2, 1;
  2, 2, 1;
  0, 0, 0, 1;
  0, 0, 0, 2, 1;
  0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 2, 1;
  0, 0, 0, 0, 0, 0, 2, 2, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  ...

Product of A127243 with A127247.

Inverse A127251 is given by (-1)^(n+k)T(n,k).

T1[n_, k_] := SeriesCoefficient[(1 + ThueMorse[1 + k]*x)*x^k, {x, 0, n}]; (* A127243 *)
T2[n_, k_] := Product[ThueMorse[i], {i, k + 1, n}]; (* A127247 *)
T[n_, k_] := Sum[T2[n, j]*T1[j, k], {j, 0, n}];
Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Amiram Eldar, Aug 04 2023 *)

More terms from Amiram Eldar, Aug 04 2023

cp's OEIS Frontend

A127253 Product of number triangles A127243 and A127248.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A127244 A Thue-Morse signed falling factorial triangle.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A127249 A product of Thue-Morse related triangles.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions