login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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; text; 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,...

LINKS

Table of n, a(n) for n=1..33.

FORMULA

a(n+1) = 2*a(n) + 0 or +-1. - Robert G. Wilson v, Sep 27 2003

a(n+1) = 2*a(n) + A029883(n). - Philippe Deléham, 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}] (* Robert G. Wilson v *)

CROSSREFS

Cf. A019300, A010060, A035263.

Sequence in context: A128695 A024504 A256494 * A048573 A221834 A006946

Adjacent sequences:  A088169 A088170 A088171 * A088173 A088174 A088175

KEYWORD

nonn

AUTHOR

Gary W. Adamson, Sep 21 2003

EXTENSIONS

More terms from Robert G. Wilson v, Sep 27 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 8 04:16 EDT 2020. Contains 335504 sequences. (Running on oeis4.)