A135690 -id:A135690 - cp's OEIS frontend

A135689 a(n) = a(n-2) - (a(floor(n/2)) - a(abs(floor(n/2) - 1))) if (n mod 2 = 0), otherwise a(n-1) - (a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3))).

0, 1, -1, -2, 1, 2, 2, 1, -1, 1, -2, -1, -2, -5, -1, -2, 1, 1, -1, 0, 2, 4, 1, -1, 2, 5, 5, 4, 1, 2, 2, 5, -1, -5, -1, 0, 1, -2, 0, 0, -2, 0, -4, -5, -1, -3, 1, -1, -2, 1, -5, -3, -5, -8, -4, -7, -1, -1, -2, -1, -2, 1, -5, -6, 1, 1, 5, 2, 1, 7, 0, 4, -1, -5, 2, 1, 0, -1, 0, 3, 2, 0, 0, 0, 4, 6, 5, 3, 1, 5, 3, 4, -1, -5, 1, 3, 2, -2, -1, 1, 5

Offset: 0

Roger L. Bagula, Feb 19 2008

G. C. Greubel, Table of n, a(n) for n = 0..1000

Cf. A135690, A135692.

a[n_]:= a[n] = If[n<2, n, If[n<4, 1-n, If[Mod[n, 2]==0, a[n-2] - (a[Floor[n/2]] - a[Abs[Floor[n/2] -1]]), a[n-1] - (a[Abs[Floor[n/2] -2]] - a[Abs[Floor[n/2] - 3]])] ]]; Table[a[n], {n, 0, 110}]

def a(n): # A135689
    if (n<4): return [0, 1, -1, -2][n]
    elif ((n%2)==0): return a(n-2) - (a((n//2)) - a(abs((n//2) - 1)))
    else: return a(n-1) - (a(abs((n//2) - 2)) - a(abs((n//2) - 3)))
[a(n) for n in (0..110)] # G. C. Greubel, Nov 26 2021

a(n) = a(n-2) - (a(floor(n/2)) - a(abs(floor(n/2) - 1))) if (n mod 2 = 0), otherwise a(n-1) - (a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3))).

Edited by N. J. A. Sloane, Mar 03 2008

A135692 a(n) = a(n-2) - 2( a(floor(n/2)) - a(abs(floor(n/2) - 1)) ) if (n mod 2) = 0, otherwise a(n-1) - 2( a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3)) ), with a(0) = 0, a(1) = 1, a(2) = -2, a(3) = -4.

Original entry on oeis.org

0, 1, -2, -4, 4, 6, 8, 6, -8, -2, -12, -8, -16, -32, -12, -16, 16, 12, 4, 8, 24, 52, 16, 4, 32, 52, 64, 56, 24, 40, 32, 64, -32, -72, -24, -16, -8, -72, -16, -8, -48, -32, -104, -112, -32, -64, -8, -64, -64, 8, -104, -80, -128, -184, -112, -152, -48, -72, -80, -64, -64, 0, -128, -160, 64, 80, 144, 80, 48, 240, 32, 112, 16, -80

Offset: 0

Roger L. Bagula, Feb 21 2008

G. C. Greubel, Table of n, a(n) for n = 0..1000
Kevin Ryde, PARI/GP Code and Notes

Cf. A135689, A135690.

a[n_]:= a[n]= If[n<2, n, If[n<4, -2^(n-1), If[Mod[n, 2]==0, a[n-2] - 2*( a[Floor[n/2]] - a[Abs[Floor[n/2] -1]]), a[n-1] - 2*(a[Abs[Floor[n/2] -2]] - a[Abs[Floor[n/2] -3]]) ]]];
Table[a[n], {n, 0, 80}]

PARI
```
\\ See links.
```

@CachedFunction
def A135692(n):
    if (n<2): return n
    elif (n<4): return -2^(n-1)
    elif (n%2==0): return A135692(n-2) - 2*(A135692(n//2) - A135692(abs(n//2 -1)))
    else: return A135692(n-1) - 2*(A135692(abs(n//2 -2)) - A135692(abs(n//2 -3)))
[A135692(n) for n in (0..80)] # G. C. Greubel, Nov 24 2021

a(n) = a(n-2) - 2*( a(floor(n/2)) - a(abs(floor(n/2) - 1)) ) if (n mod 2) = 0, otherwise a(n-1) - 2*( a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3)) ), with a(0) = 0, a(1) = 1, a(2) = -2, a(3) = -4.

Edited by G. C. Greubel, Nov 24 2021

A135564 a(n) defined by a(2n) = a(2n-2) - (a(n) - 2a(n-1) + a(n-2)) for n > 2, a(2n+1) = a(2n) - (a(n-2) - 2a(n-3) + a(n-4)), for n > 3, with a(0)=0, a(1)=1, a(2)=3, a(3)=-1, a(4)=-2, a(5)=-3, a(6)=4, a(7)=2.

Original entry on oeis.org

0, 1, 3, -1, -2, -3, 4, 2, 1, 0, 1, 7, -7, -10, 2, 2, 1, -7, 1, 10, -1, -2, -6, -6, 14, 12, 3, -2, -12, 8, 0, -11, 1, -14, 8, 20, -8, -7, -9, -2, 11, -5, 1, 0, 4, 24, 0, -10, -20, -17, 2, -2, 9, -11, 5, 27, 10, 17, -20, -24, 8, 13, 11, -19, -12, 16, 15, 18, -22, -45, -12, 15, 28, -9, -1, 9, 2, 42, -7, -36, -13, -10, 16, 7, -6, -12, 1, 30, -4

Offset: 0

Roger L. Bagula, Feb 23 2008

G. C. Greubel, Table of n, a(n) for n = 0..1000

Cf. A122581, A135689, A135690, A135692.

a[0]:=0; a[1]:=1; a[2]:=3; a[3]:=-1; a[4]:=-2; a[5]:=-3; a[6]:=4; a[7]:=2;
a[n_]:= a[n]= If[Mod[n, 2]==0, a[n-2] -a[n/2] +2*a[n/2 -1] -a[n/2 -2], a[n-1] -a[(n-1)/2 -2] +2*a[(n-1)/2 -3] -a[(n-1)/2 -4]];
Table[a[n], {n, 0, 100}]

@CachedFunction
def a(n): # A135564
    if (n<8): return [0, 1, 3, -1, -2, -3, 4, 2][n]
    elif ((n%2)==0): return a(n-2) - a(n/2) + 2*a(n/2 - 1) - a(n/2 -2)
    else: return a(n-1) - a((n-1)/2 - 2) + 2*a((n-1)/2 - 3) - a((n-1)/2 -4)
[a(n) for n in (0..100)] # G. C. Greubel, Nov 26 2021

a(n) = a(n-2) - (a(floor(n/2)) - 2*a(abs(floor(n/2) -1)) + a(abs(floor(n/2) -2)) ) if (n mod 2) = 0, otherwise a(n-1) - (a(abs(floor(n/2) - 2)) - 2*a(abs(floor(n/2) - 3)) + a(abs(floor(n/2) - 4)).
a(2*n) = a(2*n-2) - (a(n) - 2*a(n-1) + a(n-2)), for n > 2.
a(2*n+1) = a(2*n) - (a(n-2) - 2*a(n-3) + a(n-4)), for n > 3.

Edited by G. C. Greubel, Nov 28 2021

cp's OEIS Frontend

A135689 a(n) = a(n-2) - (a(floor(n/2)) - a(abs(floor(n/2) - 1))) if (n mod 2 = 0), otherwise a(n-1) - (a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3))).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

Extensions

A135692 a(n) = a(n-2) - 2( a(floor(n/2)) - a(abs(floor(n/2) - 1)) ) if (n mod 2) = 0, otherwise a(n-1) - 2( a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3)) ), with a(0) = 0, a(1) = 1, a(2) = -2, a(3) = -4.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Sage

Formula

Extensions

A135564 a(n) defined by a(2n) = a(2n-2) - (a(n) - 2a(n-1) + a(n-2)) for n > 2, a(2n+1) = a(2n) - (a(n-2) - 2a(n-3) + a(n-4)), for n > 3, with a(0)=0, a(1)=1, a(2)=3, a(3)=-1, a(4)=-2, a(5)=-3, a(6)=4, a(7)=2.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

Extensions

cp's OEIS Frontend

A135689 a(n) = a(n-2) - (a(floor(n/2)) - a(abs(floor(n/2) - 1))) if (n mod 2 = 0), otherwise a(n-1) - (a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3))).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

Extensions

A135692 a(n) = a(n-2) - 2*( a(floor(n/2)) - a(abs(floor(n/2) - 1)) ) if (n mod 2) = 0, otherwise a(n-1) - 2*( a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3)) ), with a(0) = 0, a(1) = 1, a(2) = -2, a(3) = -4.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Sage

Formula

Extensions

A135564 a(n) defined by a(2*n) = a(2*n-2) - (a(n) - 2*a(n-1) + a(n-2)) for n > 2, a(2*n+1) = a(2*n) - (a(n-2) - 2*a(n-3) + a(n-4)), for n > 3, with a(0)=0, a(1)=1, a(2)=3, a(3)=-1, a(4)=-2, a(5)=-3, a(6)=4, a(7)=2.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

Extensions

A135692 a(n) = a(n-2) - 2( a(floor(n/2)) - a(abs(floor(n/2) - 1)) ) if (n mod 2) = 0, otherwise a(n-1) - 2( a(abs(floor(n/2) - 2)) - a(abs(floor(n/2) - 3)) ), with a(0) = 0, a(1) = 1, a(2) = -2, a(3) = -4.

A135564 a(n) defined by a(2n) = a(2n-2) - (a(n) - 2a(n-1) + a(n-2)) for n > 2, a(2n+1) = a(2n) - (a(n-2) - 2a(n-3) + a(n-4)), for n > 3, with a(0)=0, a(1)=1, a(2)=3, a(3)=-1, a(4)=-2, a(5)=-3, a(6)=4, a(7)=2.