A127247 A Thue-Morse falling factorial triangle.

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

Author

Paul Barry, Jan 10 2007

Keywords

• easy
• nonn
• tabl

Comments

Central coefficients are C(1,n).

Examples

			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;
  ...
		

Crossrefs

Inverse is A127248.

Signed version is A127244.

Row sums are A127246.

Cf. A010060.

Programs

Mathematica

T[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 *)

Formula

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

Extensions

More terms from Amiram Eldar, Aug 04 2023