|
| |
|
|
A088172
|
|
First differences of A019300.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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 * A048573 A006946 A074129
Adjacent sequences: A088169 A088170 A088171 * 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
|
| |
|
|
