login
Array T(n,k) read by antidiagonals: the k-th term of the n-th difference of A131531.
4

%I #12 Oct 20 2023 06:46:43

%S 0,0,0,1,1,1,0,-1,-2,-3,0,0,1,3,6,-1,-1,-1,-2,-5,-11,0,1,2,3,5,10,21,

%T 0,0,-1,-3,-6,-11,-21,-42,1,1,1,2,5,11,22,43,85,0,-1,-2,-3,-5,-10,-21,

%U -43,-86,-171,0,0,1,3,6,11,21,42,85,171,342,-1,-1,-1,-2,-5,-11,-22,-43,-85,-170,-341,-683,0,1,2,3,5,10,21,43,86,171,341,682,1365

%N Array T(n,k) read by antidiagonals: the k-th term of the n-th difference of A131531.

%C The array contains A131708(0) in diagonal 0, then -A024495(0..1) in diagonal 1, then A024493(0..2) in diagonal 2, then -A131708(0..3), then A024495(0..4), then -A024493(0..5).

%F T(0,k) = A131531(k). T(n,k) = T(n-1,k+1) - T(n-1,k), n > 0.

%F T(n,n) = A001045(n). T(n,n+1) = -A001045(n). T(n,n+2) = A078008(n).

%F T(n,0) = -T(n,3) = (-1)^(n+1)*A024495(n).

%F T(n,1) = (-1)^(n+1)*A131708(n).

%F T(n,2) = (-1)^n*A024493(n).

%F T(n,k+6) = T(n,k).

%F a(n) = A131708(0), -A024495(0,1), A024493(0,1,2), -A131708(0,1,2,3), A024495(0,1,2,3,4), -A024493(0,1,2,3,4,5).

%e The table starts in row n=0 with columns k >= 0 as:

%e 0, 0, 1, 0, 0, -1, 0, 0, 1, 0, 0, -1, 0, 0, 1, 0, 0, -1, 0, 0, 1, 0, 0 A131531

%e 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1 A092220

%e 1, -2, 1, -1, 2, -1, 1, -2, 1, -1, 2, -1, 1, -2, 1, -1, 2, -1, 1, -2 A131556

%e -3, 3, -2, 3, -3, 2, -3, 3, -2, 3, -3, 2, -3, 3, -2, 3, -3, 2, -3 A164359

%e 6, -5, 5, -6, 5, -5, 6, -5, 5, -6, 5, -5, 6, -5, 5, -6, 5, -5, 6, -5

%e -11, 10, -11, 11, -10, 11, -11, 10, -11, 11, -10, 11, -11, 10, -11

%e 21, -21, 22, -21, 21, -22, 21, -21, 22, -21, 21, -22, 21, -21, 22

%p A131531 := proc(n) op((n mod 6)+1,[0,0,1,0,0,-1]) ; end proc:

%p A167613 := proc(n,k) option remember; if n= 0 then A131531(k); else procname(n-1,k+1)-procname(n-1,k) ; end if;end proc: # _R. J. Mathar_, Dec 17 2010

%t nmax = 13;

%t A131531 = Table[{0, 0, 1, 0, 0, -1}, {nmax}] // Flatten;

%t T[n_] := T[n] = Differences[A131531, n];

%t T[n_, k_] := T[n][[k]];

%t Table[T[n-k, k], {n, 1, nmax}, {k, n, 1, -1}] // Flatten (* _Jean-François Alcover_, Oct 20 2023 *)

%Y Cf. A167617 (antidiagonal sums).

%K tabl,easy,sign

%O 0,9

%A _Paul Curtz_, Nov 07 2009