|
%I #12 Feb 20 2022 01:25:41
%S 1,0,1,1,0,1,0,1,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,1,0,1,0,0,0,0,0,1,
%T 0,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,1,0,1,0,0,
%U 0,0,0,0,0,0,0,1,0,1
%N Triangle read by rows: row n is 0^(n-3), 1, 0, 1.
%C Alternate term operator, sums.
%C Let A129686 = matrix M, with V any sequence as a vector. Then M*V is the alternate term sum operator. Given V = [1,2,3,...], M*V = [1, 2, 4, 6, 8, 10, 12, 14, ...]. The analogous operation using A097807, (the pairwise operator), gives [1, 3, 5, 7, 9, 11, 13, 15, ...]. Binomial transform of A129686 = A124725. A129686 * A007318 = A129687. Row sums of A129686 = (1, 1, 2, 2, 2, ...).
%F As an infinite lower triangular matrix, (1,1,1,...) in the main diagonal, (0,0,0,...) in the subdiagonal and (1,1,1,...) in the subsubdiagonal; with the rest zeros. (1, 0, 1, 0, 0, 0, ...) in every column.
%e First few rows of the triangle:
%e 1;
%e 0, 1;
%e 1, 0, 1;
%e 0, 1, 0, 1
%e 0, 0, 1, 0, 1;
%e 0, 0, 0, 1, 0, 1;
%e ...
%t T[n_, k_] := If[k == n || k == n-2, 1, 0];
%t Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* _Jean-François Alcover_, Jul 10 2019 *)
%o (PARI) tabl(nn) = {t129686 = matrix(nn, nn, n, k, (k<=n)*((k==n) || (k==(n-2)))); for (n = 1, nn, for (k = 1, n, print1(t129686[n, k], ", ");););} \\ _Michel Marcus_, Feb 12 2014
%Y Cf. A124725, A129687.
%K nonn,tabl
%O 1,1
%A _Gary W. Adamson_, Apr 28 2007
%E More terms from _Michel Marcus_, Feb 12 2014
|
