OFFSET
1,4
MATHEMATICA
p[0] = 0; p[1] = 1; p[2] = -1; p[3] = p[2] + 3; p[4] = p[1] + 3; p[5] = p[0] + 3;
p[i_] := p[i] =
If[Mod[i, 3] == 0,
p[i - 1] - (p[Floor[i/2]] - 2*p[Abs[Floor[i/2] - 1]] + p[Abs[Floor[i/2] - 2]]),
If[Mod[i, 3] == 1,
p[i - 3] - (p[Abs[Floor[i/2] - 2]] - 2*p[Abs[Floor[i/2] - 3]] + p[Abs[Floor[i/2] - 4]]),
(* else *)
p[i - 5] - (p[Abs[Floor[i/2] - 3]] - 2*p[Abs[Floor[i/2] - 4]] + p[Abs[Floor[i/2] - 5]])]];
b = Table[p[n], {n, 0, 100}]
CROSSREFS
KEYWORD
uned,sign,less
AUTHOR
Roger L. Bagula, Feb 23 2008
STATUS
approved