|
| |
|
|
A348112
|
|
a(n) = t(n)*a(n-1) + a(n-2) for n>1 where t(n) is the Prouhet-Thue-Morse sequence A106400 with a(0)=0 and a(1)=1.
|
|
1
|
|
|
|
0, 1, -1, 0, -1, -1, -2, 1, -3, -2, -5, 3, -2, 5, -7, -2, -5, -7, -12, 5, -7, 12, -19, -7, -26, 19, -45, -26, -19, -45, -64, 19, -83, -64, -147, 83, -64, 147, -211, -64, -275, 211, -486, -275, -211, -486, -697, 211, -486, 697, -1183, -486, -697, -1183, -1880, 697
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,7
|
|
|
LINKS
|
Michel Marcus, Table of n, a(n) for n = 0..1000
Eryk Lipka and Maciej Ulas, A Fibonacci type sequence with Prouhet-Thue-Morse coefficients, arXiv:2109.15243 [math.NT], 2021.
|
|
|
MATHEMATICA
|
a[0] = 0; a[1] = 1; a[n_] := a[n] = (-1)^DigitCount[n, 2, 1]*a[n - 1] + a[n - 2]; Array[a, 50, 0] (* Amiram Eldar, Oct 01 2021 *)
|
|
|
PROG
|
(PARI) t(n) = (-1)^hammingweight(n); \\ A106400
lista(nn) = {my(va = vector(nn)); va[1] = 1; va[2] = -1; for (n=3, nn, va[n] = t(n)*va[n-1] + va[n-2]; ); concat(0, va); }
|
|
|
CROSSREFS
|
Cf. A000045, A106400.
Sequence in context: A050360 A175003 A176431 * A045747 A308984 A029138
Adjacent sequences: A348109 A348110 A348111 * A348113 A348114 A348115
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
Michel Marcus, Oct 01 2021
|
|
|
STATUS
|
approved
|
| |
|
|
