A129688 A129686 * A128174.

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

Offset

1,4

Comments

Resulting triangle has (1, 0, 2, 0, 2, 0, 2, ...) in every column.

Row sums = A109613: (1, 1, 3, 3, 5, 5, ...).

Links

Table of n, a(n) for n=1..55.

Formula

A129686 * A128174 as infinite lower triangular matrices.

Example

First few rows of the triangle:
  1;
  0, 1;
  2, 0, 1;
  0, 2, 0, 1;
  2, 0, 2, 0, 1;
  ...

Mathematica

T[n_, k_] := If[k == n, 1, If[EvenQ[n + k], 2, 0]];
Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jul 10 2019 *)

Crossrefs

Cf. A129686, A128174, A109613.

Sequence in context: A370884 A325036 A194942 * A356678 A356680 A356677

Adjacent sequences: A129685 A129686 A129687 * A129689 A129690 A129691

Keyword

nonn,tabl

Author

Gary W. Adamson, Apr 28 2007

Status

approved