|
%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
|
