login
a(n)=2*A003160(n)-n.
4

%I #8 Aug 02 2013 23:08:26

%S 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,

%T 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,

%U 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

%N a(n)=2*A003160(n)-n.

%H Reinhard Zumkeller, <a href="/A095774/b095774.txt">Table of n, a(n) for n = 1..10000</a>

%o (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

%o (Haskell)

%o a095774 n = 2 * a003160 n - n -- _Reinhard Zumkeller_, Aug 02 2013

%K sign

%O 1,6

%A _Benoit Cloitre_, Jun 05 2004

%E Offset corrected by _Reinhard Zumkeller_, Aug 02 2013