%I #9 Jul 23 2023 06:07:14
%S 1,0,0,0,0,0,1,-1,0,0,1,-1,1,0,-1,0,0,0,1,-1,1,0,-1,0,1,0,-1,1,-1,0,1,
%T -1,0,0,1,-1,1,0,-1,0,1,0,-1,1,-1,0,1,-1,1,0,-1,1,-1,0,1,0,-1,0,1,-1,
%U 1,0,0,-1,0,0,1,-1,1,0,-1,0,1,0,-1,1,-1,0,1,-1,1,0,-1,1,-1,0,1,0,-1,0,1,-1,1,0,0,-1,1,0,-1,1,-1
%N f(f(n+1))-f(f(n)), where f(m) = wt(m) = A000120(m).
%t f[n_] := DigitCount[n, 2, 1]; a[n_] := f[f[n+1]] - f[f[n]]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 23 2023 *)
%Y Cf. A000120.
%K sign,base
%O 0,1
%A _N. J. A. Sloane_, Nov 12 2005
%E Definition corrected by _N. J. A. Sloane_, Feb 14 2018
|