OFFSET
0,2
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} ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Oct 13 2001
STATUS
approved