OFFSET
0,2
COMMENTS
Ill defined beyond n=866. - M. F. Hasler, Aug 28 2012
LINKS
Jinyuan Wang, Table of n, a(n) for n = 0..866
MATHEMATICA
a[0] = q[0] = q[1] = q[2] = q[3] = 1;
q[n_] := q[n] = q[Abs[n - q[n - 3]]] + q[Abs[n - q[n - 4]]];
a[n_] := a[n] = a[n - 1] + 2*(q[n] - n/2);
Table[a[n], {n, 0, 70} ]
PROG
(ARIBAS): function qfunc(n: integer): integer; var r: integer; begin if n < 4 then r := 1; else r := qfunc(abs(n - qfunc(n - 3))) + qfunc(abs(n - qfunc( n - 4))); end; return r; end; function a064552(n: integer); var k, r: integer; begin if n = 0 then r := 1; else r := a064552(n - 1) + round(2*(qfunc(n) - n/2)); end; return r; end; for n := 1 to 60 do write(a064552(n), " "); end; .
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Roger L. Bagula, Oct 08 2001
EXTENSIONS
Sequence A064657, and thus the present one, is ill defined beyond n=866. Keyword 'fini' added by M. F. Hasler, Aug 28 2012
STATUS
approved