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

Author

Benoit Cloitre, Jun 05 2004

Keywords

• sign

Links

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

Programs

Haskell

a095774 n = 2 * a003160 n - n  -- Reinhard Zumkeller, Aug 02 2013

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

Extensions

Offset corrected by Reinhard Zumkeller, Aug 02 2013