OFFSET
0,7
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 0..8192
Pages 61-62 of Matters Computational (The Fxtbook).
EXAMPLE
(see A184615)
MATHEMATICA
bin2naf[x_] := Module[{xh, x3, c, np, nm},
xh = BitShiftRight[x, 1];
x3 = x + xh;
c = BitXor[xh, x3];
np = BitAnd[x3, c];
nm = BitAnd[xh, c];
Return[{np, nm}]];
a[n_] := bin2naf[n][[2]];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, May 30 2019, from PARI code in A184615 *)
PROG
(PARI) (see A184615)
CROSSREFS
KEYWORD
nonn
AUTHOR
Joerg Arndt, Jan 18 2011
STATUS
approved