%I #2 Mar 30 2012 17:30:36
%S 1,2,2,3,7,14,18,17,15,24,26,23,25,36,40,35,33,36,50,63,63,66,68,77,
%T 81,98,98,105,93,92,110,131,137,128,110,121,129,138,124,119,115,130,
%U 158,167,155,154,176,223,219,182,152,173,259,278,266,261,271,296,304,303
%N Define q(0)=1, q(1)=1, q(2)=1, q(n)=q(abs(n-q(n-2)))+q(abs(n-q(n-3))) (A063892); then a(0) = 1, a(n)=a(n-1)+2*(q(n)-n/2), n > 0.
%t a[0] = q[0] = q[1] = q[2] = 1; q[n_] := q[n] = q[Abs[n - q[n - 2]]] + q[Abs[n - q[n - 3]]]; a[n_] := a[n] = a[n - 1] + 2*(q[n] - n/2); Table[a[n], {n, 0, 70} ]
%Y Cf. A063892, A064552.
%K easy,nonn
%O 0,2
%A _Robert G. Wilson v_, Oct 13 2001