%I #13 Jul 09 2015 20:44:27
%S 0,1,1,1,0,2,2,2,0,1,1,2,1,4,3,4,1,2,1,1,0,2,2,3,1,3,2,5,3,7,4,7,3,5,
%T 2,3,1,3,2,2,0,1,1,2,1,4,3,5,2,4,2,4,2,5,3,7,4,8,4,10,6,11,5,11,6,10,
%U 4,8,4,7,3,5,2,4,2,4,2,5,3,4,1,2,1,1,0,2,2,3,1,3,2,5,3,7,4,8,4,7,3,6,3,6,3
%N a(2n+1) = |a(2n) - a(2n-1)|, a(2n) = a(n) + a(n-1).
%C Presumably, the positions n such that a(n)=0 are the terms of A097074. - _Ivan Neretin_, Jul 06 2015
%H Ivan Neretin, <a href="/A020943/b020943.txt">Table of n, a(n) for n = 1..5461</a>
%t a = {0, 1, 1}; Do[AppendTo[a, a[[n]] + a[[n - 1]]]; AppendTo[a, Abs[a[[-1]] - a[[-2]]]], {n, 2, 51}]; a (* _Ivan Neretin_, Jul 06 2015 *)
%Y Cf. A020947, A020948, A020949, A020950.
%K nonn,look
%O 1,6
%A _Clark Kimberling_
%E More terms from _Henry Bottomley_, May 16 2001