A369736 Triangle read by rows. T(n, k) = 0 if n - k is odd otherwise if 4 divides n - k then 1 otherwise -1.

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

Offset

0

Comments

Signed version of A128174.

Links

Paolo Xausa, Table of n, a(n) for n = 0..11475 (rows 0..150 of the triangle, flattened).

Maple

T := (n, k) -> if irem(n - k, 2) = 1 then 0 elif irem(n - k, 4) = 0 then 1 else -1 fi: seq(seq(T(n, k), k = 0..n), n = 0..11);

Mathematica

A369736[n_, k_] := Which[OddQ[n-k], 0, Divisible[n-k, 4], 1, True, -1];
Table[A369736[n, k], {n, 0, 15}, {k, 0, n}] (* Paolo Xausa, Mar 02 2024 *)

Crossrefs

Row sums: A133872 (period 4: repeat [1, 1, 0, 0]).

Alternating row sums: A219977 (period 4: repeat [1, -1, 0, 0]).

Central terms: A056594 (period 4: repeat [1, 0, -1, 0]).

Cf. A128174.

Sequence in context: A024711 A286990 A249866 * A128174 A096055 A260456

Adjacent sequences: A369733 A369734 A369735 * A369737 A369738 A369739

Keyword

sign,tabl,easy

Author

Peter Luschny, Mar 02 2024

Status

approved