A158020 Triangle of coefficients in expansion of (-1-x)^floor(n/2)(1-x)^ceiling(n/2).

1, 1, -1, -1, 0, 1, -1, 1, 1, -1, 1, 0, -2, 0, 1, 1, -1, -2, 2, 1, -1, -1, 0, 3, 0, -3, 0, 1, -1, 1, 3, -3, -3, 3, 1, -1, 1, 0, -4, 0, 6, 0, -4, 0, 1, 1, -1, -4, 4, 6, -6, -4, 4, 1, -1, -1, 0, 5, 0, -10, 0, 10, 0, -5, 0, 1, -1, 1, 5, -5, -10, 10, 10, -10, -5, 5, 1, -1

Offset

0,13

Comments

Triangle T(n,k), 0 <= k <= n, read by rows given by [1,-2,1,0,0,0,0,0,0,...] DELTA [-1,0,1,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.

Links

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

Formula

T(n,k) = T(n-2,k-2) - T(n-2,k), T(0,0)=T(1,0)=1, T(1,1)=-1.

G.f.: (1+(1-y)*x)/(1+(1-y^2)*x^2). - Philippe Deléham, Dec 02 2011

Example

Triangle begins:
   1;
   1, -1;
  -1,  0,  1;
  -1,  1,  1, -1;
   1,  0, -2,  0,  1;  ...

Mathematica

Flatten[Table[CoefficientList[(-1 - x)^Floor[n/2] (1 - x)^Ceiling[n/2], x], {n, 0, 11}]] (* T. D. Noe, Dec 01 2011 *)

Crossrefs

Cf. A051160.

Sequence in context: A268479 A035196 A287475 * A051160 A051159 A331545

Adjacent sequences: A158017 A158018 A158019 * A158021 A158022 A158023

Keyword

sign,tabl

Author

Philippe Deléham, Mar 11 2009

Extensions

Corrected by Philippe Deléham, Dec 02 2011

Status

approved