%I #12 Dec 18 2022 08:44:03
%S 0,1,-1,2,4,3,-2,2,0,1,-3,1,5,-2,2,-7,2,8,5,-7,-16,-11,-10,11,11,-5,
%T -6,5,-5,3,16,6,16,-2,19,5,14,1,-20,-11,10,17,3,19,-2,2,5,0,21,9,6,22,
%U 30,1,-11,46,38,59,34,-26,-31,55,80,103,50,-49,-21,73,126,87,101,-41,-64,62,48,70,39,-29,-59,61,92,80,31,-51,-30,19,68,38
%N A nonsense sequence.
%t p[0] = 0; p[1] = 1; p[2] = -1; p[3] = p[2] + 3; p[4] = p[1] + 3; p[5] = p[0] + 3;
%t p[i_] := p[i] =
%t If[Mod[i, 3] == 0,
%t p[i - 1] - (p[Floor[i/2]] - 2*p[Abs[Floor[i/2] - 1]] + p[Abs[Floor[i/2] - 2]]),
%t If[Mod[i, 3] == 1,
%t p[i - 3] - (p[Abs[Floor[i/2] - 2]] - 2*p[Abs[Floor[i/2] - 3]] + p[Abs[Floor[i/2] - 4]]),
%t (* else *)
%t p[i - 5] - (p[Abs[Floor[i/2] - 3]] - 2*p[Abs[Floor[i/2] - 4]] + p[Abs[Floor[i/2] - 5]])]];
%t b = Table[p[n], {n, 0, 100}]
%K uned,sign,less
%O 1,4
%A _Roger L. Bagula_, Feb 23 2008
|