cp's OEIS Frontend

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

%I A085144 #5 Mar 18 2015 16:57:08
%S A085144 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,
%T A085144 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,
%U A085144 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
%N A085144 a(0)=0, a(2n) = a(n)+1, a(2n+1) = -a(n).
%C A085144 Local maxima are a(2^k) = k, minima are a(2^k+1) = -k+1.
%H A085144 Reinhard Zumkeller, <a href="/A085144/b085144.txt">Table of n, a(n) for n = 0..10000</a>
%o A085144 (Haskell)
%o A085144 import Data.List (transpose)
%o A085144 a085144 n = a085144_list !! n
%o A085144 a085144_list = 0 : concat
%o A085144    (transpose [map negate a085144_list, map (+ 1) $ tail a085144_list])
%o A085144 -- _Reinhard Zumkeller_, Mar 18 2015
%Y A085144 Zeros are in A085145. Cf. A004718, A010060, A059448.
%K A085144 sign,easy
%O A085144 0,5
%A A085144 _Ralf Stephan_, Jun 20 2003