A127248 Triangle whose k-th column is generated by (1-A010060(1+k)*x)*x^k.

1, -1, 1, 0, -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, 0, -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,1

Links

Table of n, a(n) for n=0..90.

Example

Triangle begins:
  1;
  -1, 1;
  0, -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, 0, -1, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
  ...

Mathematica

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

Crossrefs

Inverse is A127247.

Row sums are 1-A010060(n).

Sequence in context: A165556 A348292 A127243 * A266298 A265695 A116938

Adjacent sequences: A127245 A127246 A127247 * A127249 A127250 A127251

Keyword

easy,sign,tabl

Author

Paul Barry, Jan 10 2007

Extensions

More terms from Amiram Eldar, Aug 04 2023

Status

approved