%I #6 Dec 15 2018 08:34:17
%S 0,0,0,3,2,0,0,6,6,4,4,3,2,0,0,15,14,12,12,11,10,8,8,6,6,4,4,3,2,0,0,
%T 30,30,28,28,27,26,24,24,22,22,20,20,19,18,16,16,15,14,12,12,11,10,8,
%U 8,6,6,4,4,3,2,0,0,63,62,60,60,59,58,56,56,54,54,52,52,51,50
%N a(n) = A004760(n+1)-A160217(n), n>=1.
%F a(1)=0; a(2n)=a(2n+1)=2a(n) if A007814(n) is even, a(2n)=a(2n+1)+1=2a(n)+3 if A007814(n) is odd.
%e a(2)=2a(1)=0; a(3)=2a(1)=0; a(4)=2a(2)+3=3; a(5)=2a(2)+2=2.
%o (PARI) is0(n)= (n<2) || binary(n)[2]; \\ A004760
%o list0(nn) = select(x->is0(x), vector(nn, k, k));
%o list7(nn) = {my(va = vector(nn)); va[1] = 3; for (n=2, nn, va[n]= nexta(va[n-1], n);); va;} \\ A160217
%o listd(nn) = {my(v7 = list7(nn), v0 = list0(nn)); vector(min(#v0-1, #v7), k, v0[k+1] - v7[k]);} \\ _Michel Marcus_, Dec 15 2018
%Y Cf. A004760, A160217, A007814.
%K nonn
%O 1,4
%A _Vladimir Shevelev_, May 04 2009
%E Edited by _N. J. A. Sloane_, May 08 2009
%E More terms from _Michel Marcus_, Dec 15 2018