A110515 Sequence array for (1 - x + x^2 + x^3)/(1 - x^4).

1, -1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, 1, -1, 1, -1, 1, 1, 1, -1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, 1, -1, 1, 1, 1, -1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1

Offset

0,1

Comments

Row sums are A106249. Diagonal sums are A110514.

Links

G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened

Formula

Riordan array ((1 - x + x^2 + x^3)/(1 - x^4), 1).

Column k has g.f. x^k*(1 - x + x^2 + x^3)/(1 - x^4).

T(n, k) = if(k <= n, -sin(Pi*(n-k)/2) + cos(Pi*(n-k))/2 + 1/2, 0).

T(n, k) = if(k <= n, Jacobi(2^(n-k), 2(n-k)+1), 0) [conjecture].

Example

Rows begin
   1;
  -1,  1;
   1, -1,  1;
   1,  1, -1,  1;
   1,  1,  1, -1,  1;
  -1,  1,  1,  1, -1,  1;
   1, -1,  1,  1,  1,- 1,  1;

Mathematica

Table[If[k <= n, -Sin[Pi*(n - k)/2] + Cos[Pi*(n - k)]/2 + 1/2, 0], {n, 0, 10}, {k, 0, n}]//Flatten (* G. C. Greubel, Aug 29 2017 *)

Prog

(PARI) for(n=0, 20, for(k=0, n, print1(round(if(k<=n, -sin(Pi*(n-k)/2) + cos(Pi*(n-k))/2 + 1/2, 0)), ", "))) \\ G. C. Greubel, Aug 29 2017

Crossrefs

Sequence in context: A071935 A096809 A131561 * A355437 A071936 A005088

Adjacent sequences: A110512 A110513 A110514 * A110516 A110517 A110518

Keyword

easy,sign,tabl

Author

Paul Barry, Jul 24 2005

Status

approved