login
A111412
f(f(n+1))-f(f(n)), where f(m) = wt(m) = A000120(m).
0
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, -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, 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
OFFSET
0,1
MATHEMATICA
f[n_] := DigitCount[n, 2, 1]; a[n_] := f[f[n+1]] - f[f[n]]; Array[a, 100, 0] (* Amiram Eldar, Jul 23 2023 *)
CROSSREFS
Cf. A000120.
Sequence in context: A266243 A266608 A333818 * A080111 A204545 A185116
KEYWORD
sign,base
AUTHOR
N. J. A. Sloane, Nov 12 2005
EXTENSIONS
Definition corrected by N. J. A. Sloane, Feb 14 2018
STATUS
approved