|
Search: id:A088172
|
|
| |
|
| 1, 2, 3, 7, 13, 26, 53, 106, 211, 422, 845, 1689, 3379, 6758, 13515, 27031, 54061, 108122, 216245, 432489, 864979, 1729958, 3459915, 6919830, 13839661, 27679322, 55358643, 110717287, 221434573, 442869146, 885738293, 1771476586, 3542953171
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Partial sums give A019300, while partial sums mod 2 = the Thue-Morse sequence, A010060. a(n) mod 2 = A035263: 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1,...
|
|
FORMULA
|
a(n+1) = 2*a(n) +0 or +/-1. - Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2003
a(n+1) = 2*a(n) + A029883(n) . - DELEHAM Philippe (kolotoko(AT)wanadoo.fr), Mar 21 2004
|
|
MATHEMATICA
|
tm = Table[ If[ OddQ[ Count[ IntegerDigits[n, 2], 1]], 1, 0], {n, 0, 35}]; Table[ FromDigits[ Take[ tm, n + 1], 2] - FromDigits[ Take[ tm, n], 2], {n, 1, 33}] (from Robert G. Wilson v)
|
|
CROSSREFS
|
Cf. A019300, A010060, A035263.
Sequence in context: A075058 A128695 A024504 this_sequence A048573 A006946 A074129
Adjacent sequences: A088169 A088170 A088171 this_sequence A088173 A088174 A088175
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Gary W. Adamson (qntmpkt(AT)yahoogroups.com), Sep 21 2003
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2003
|
|
|
Search completed in 0.002 seconds
|
