login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
Sequence in context: A123551 A286275 A029717 * A105972 A305024 A064134
KEYWORD
uned,sign,less
AUTHOR
Roger L. Bagula, Feb 23 2008
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)