|
|
A163805
|
|
Expansion of (1 - x) * (1 - x^6) / ((1 - x^3) * (1 - x^4)) in powers of x.
|
|
4
|
|
|
1, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
Euler transform of length 6 sequence [ -1, 0, 1, 1, 0, -1].
G.f. A(x) satisfies 0 = f(A(x), A(x^2)) where f(u, v) = (2 - v) - u * (2 - u) * (3 - 2*v).
a(2*n) = 0 unless n=0, a(4*n + 1) = -1, a(4*n + 3) = a(0) = 1.
a(-n) = -a(n) unless n=0. a(n+4) = a(n) unless n=0 or n=-4.
G.f.: (1 - x + x^2) / (1 + x^2).
G.f. A(x) = 1 - x / (1 + x^2) = 1 / (1 + x / (1 - x / (1 + x / (1 - x)))). - Michael Somos, Jan 03 2013
|
|
EXAMPLE
|
G.f. = 1 - x + x^3 - x^5 + x^7 - x^9 + x^11 - x^13 + x^15 - x^17 + x^19 + ...
|
|
MATHEMATICA
|
a[ n_] := Boole[n == 0] + {-1, 0, 1, 0}[[Mod[n, 4, 1]]]; (* Michael Somos, Sep 06 2015 *)
|
|
PROG
|
(PARI) {a(n) = (n==0) + [0, -1, 0, 1][n%4 + 1]};
(PARI) {a(n) = (n==0) - kronecker(-4, n)};
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|