A082498 - OEIS

%I #5 Jul 20 2013 16:26:40

%S 0,1,1,1,1,2,1,2,1,2,2,3,1,3,2,3,1,3,2,3,2,4,3,5,1,4,3,4,2,5,3,5,1,4,

%T 3,4,2,5,3,5,2,5,4,6,3,7,5,8,1,6,4,5,3,7,4,7,2,6,5,7,3,8,5,8,1,6,4,5,

%U 3,7,4,7,2,6,5,7,3,8,5,8,2,7,5,7,4,9,6,10,3,9,7,10,5,12,8

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

%H Reinhard Zumkeller, <a href="/A082498/b082498.txt">Table of n, a(n) for n = 0..10000</a>

%o (PARI) a(n) = if(n<2,n,if(n%2==0,a(n/2),a((n-1)/2)+a((n-3)/2)))

%o (Haskell)

%o a082498 n = a082498_list !! n

%o a082498_list = 0 : 1 : concat

%o    (zipWith (\u v -> [u, u + v]) (tail a082498_list) a082498_list)

%o -- _Reinhard Zumkeller_, Jul 19 2013

%Y Cf. A020951.

%K nonn

%O 0,6

%A _Ralf Stephan_, Apr 29 2003