A085144 a(0)=0, a(2n) = a(n)+1, a(2n+1) = -a(n).

0, 0, 1, 0, 2, -1, 1, 0, 3, -2, 0, 1, 2, -1, 1, 0, 4, -3, -1, 2, 1, 0, 2, -1, 3, -2, 0, 1, 2, -1, 1, 0, 5, -4, -2, 3, 0, 1, 3, -2, 2, -1, 1, 0, 3, -2, 0, 1, 4, -3, -1, 2, 1, 0, 2, -1, 3, -2, 0, 1, 2, -1, 1, 0, 6, -5, -3, 4, -1, 2, 4, -3, 1, 0, 2, -1, 4, -3, -1, 2, 3, -2, 0, 1, 2

Offset

0,5

Comments

Local maxima are a(2^k) = k, minima are a(2^k+1) = -k+1.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Prog

(Haskell)
import Data.List (transpose)
a085144 n = a085144_list !! n
a085144_list = 0 : concat
   (transpose [map negate a085144_list, map (+ 1) $ tail a085144_list])
-- Reinhard Zumkeller, Mar 18 2015

Crossrefs

Zeros are in A085145. Cf. A004718, A010060, A059448.

Sequence in context: A029352 A340011 A055168 * A156578 A171846 A097230

Adjacent sequences: A085141 A085142 A085143 * A085145 A085146 A085147

Keyword

sign,easy

Author

Ralf Stephan, Jun 20 2003

Status

approved