login
A225132
Convolutory inverse of the Thue Morse sequence.
1
1, -1, 1, -2, 3, -4, 5, -8, 12, -16, 22, -32, 45, -62, 87, -124, 175, -244, 343, -484, 679, -952, 1339, -1884, 2646, -3716, 5224, -7342, 10313, -14490, 20365, -28618, 40210, -56502, 79400, -111570, 156769, -220290, 309553, -434974, 611210, -858864, 1206862
OFFSET
1,4
COMMENTS
Coefficients in 1/(1+g(x)), where g is the generating function of the Thue-Morse sequence, A010060. Conjecture: a(n+1)/a(n) -> -1.405177106052... .
LINKS
EXAMPLE
(1,1,0,1,0,0,1,1,...)**(1,-1,1,-2,3,-4,5,-8,...) = (1,0,0,0,0,...), where ** denotes convolution.
MATHEMATICA
r[n_] := If[n == 0, 0, If[Mod[n, 2] == 0, r[n/2], 1 - r[(n - 1)/2]]]; Table[r[n], {n, 1, 30}]; (* A010060 *) k[n_] := k[n] = 0; k[1] = 1; s[n_] := s[n] = (k[n] - Sum[r[k]*s[n - k + 1], {k, 2, n}])/r[1]; Table[s[n], {n, 1, 60}]
CROSSREFS
Sequence in context: A059747 A254328 A094087 * A240216 A017821 A113439
KEYWORD
sign
AUTHOR
Clark Kimberling, Apr 29 2013
STATUS
approved