%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