|
|
A135567
|
|
A nonsense sequence.
|
|
0
|
|
|
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, -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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|