A095774 a(n)=2*A003160(n)-n.

1, 0, -1, 0, 1, 2, 1, 0, 1, 0, -1, 0, -1, -2, -1, 0, 1, 0, -1, 0, 1, 2, 1, 0, 1, 2, 3, 2, 1, 2, 1, 0, 1, 0, -1, 0, 1, 2, 1, 0, 1, 0, -1, 0, -1, -2, -1, 0, 1, 0, -1, 0, -1, -2, -1, -2, -3, -2, -1, 0, -1, -2, -1, 0, 1, 0, -1, 0, 1, 2, 1, 0, 1, 0, -1, 0, -1, -2, -1, 0, 1, 0, -1, 0, 1, 2, 1, 0, 1, 2, 3, 2, 1, 2, 1, 0, 1, 0, -1, 0, 1, 2, 1, 0, 1, 2, 3, 2, 1, 2, 3, 4, 3, 2

Offset

1,6

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Prog

(PARI) m=1106; v=vector(m, j, 1); for(n=3, m, g=n-v[v[n-1]]-v[v[n-2]]; v[n]=g); a(n)=2*v[n]-n
(Haskell)
a095774 n = 2 * a003160 n - n  -- Reinhard Zumkeller, Aug 02 2013

Crossrefs

Sequence in context: A175816 A227573 A085004 * A266874 A308343 A331216

Adjacent sequences: A095771 A095772 A095773 * A095775 A095776 A095777

Keyword

sign

Author

Benoit Cloitre, Jun 05 2004

Extensions

Offset corrected by Reinhard Zumkeller, Aug 02 2013

Status

approved