A064714 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.

1, 2, 2, 3, 7, 14, 18, 17, 15, 24, 26, 23, 25, 36, 40, 35, 33, 36, 50, 63, 63, 66, 68, 77, 81, 98, 98, 105, 93, 92, 110, 131, 137, 128, 110, 121, 129, 138, 124, 119, 115, 130, 158, 167, 155, 154, 176, 223, 219, 182, 152, 173, 259, 278, 266, 261, 271, 296, 304, 303

Offset: 0

Author

Robert G. Wilson v, Oct 13 2001

Keywords

• easy
• nonn

Crossrefs

Cf. A063892, A064552.

Programs

Mathematica

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} ]