|
|
A092220
|
|
Expansion of x*(1-x)/ ((1+x)*(1-x+x^2)) in powers of x.
|
|
6
|
|
|
0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Multiplicative with a(2^e) = -1, a(3^e) = 0, a(p^e) = 1 otherwise. - David W. Wilson Jun 12 2005
|
|
LINKS
|
|
|
FORMULA
|
Euler transform of length 6 sequence [-1, 0, -1, 0, 0, 1]. - Michael Somos, Apr 10 2011
Moebius transform is length 6 sequence [1, -2, -1, 0, 0, 2]. - Michael Somos, Apr 10 2011
G.f.: x * (1 - x) * (1 - x^3) / (1 - x^6). - Michael Somos, Apr 10 2011
a(n) = a(-n), a(n + 3) = -a(n), a(3*n) = 0, for all n in Z. - Michael Somos, Apr 10 2011
a(n) = 2*cos(Pi*n/3)/3 - 2(-1)^n/3.
a(n) = 3*a(n-1) - a(n-3) + 3*a(n-4). - Paul Curtz, Dec 10 2007
a(n) = ( (-1)^floor((n+1)/3) - (-1)^n )/2. [Bruno Berselli, Jul 09 2013]
a(n) = S(n-1,-1), n >= 0, with Chebyshev's S-polynomials evaluated at -1 (see A049310). - Wolfdieter Lang, Sep 06 2013
|
|
EXAMPLE
|
G.f. = x - x^2 - x^4 + x^5 + x^7 - x^8 - x^10 + x^11 + x^13 - x^14 - x^16 + x^17 + ...
|
|
MATHEMATICA
|
a[ n_] := {1, -1, 0, -1, 1, 0}[[Mod[n, 6, 1]]]; (* Michael Somos, Aug 25 2014 *)
LinearRecurrence[{0, 0, -1}, {0, 1, -1}, 120] (* or *) PadRight[{}, 120, {0, 1, -1, 0, -1, 1}] (* Harvey P. Dale, Mar 30 2016 *)
|
|
PROG
|
(PARI) {a(n) = [0, 1, -1, 0, -1, 1][n%6 + 1]}; /* Michael Somos, Apr 10 2011 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy,mult
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|