|
%I M2259 #42 Oct 19 2023 07:37:32
%S 3,2,13,12,15,14,9,8,11,10,53,52,55,54,49,48,51,50,61,60,63,62,57,56,
%T 59,58,37,36,39,38,33,32,35,34,45,44,47,46,41,40,43,42,213,212,215,
%U 214,209,208,211,210,221,220,223,222,217,216,219,218,197,196,199,198,193,192,195,194,205,204,207,206,201,200
%N Base -2 representation of -n reinterpreted as binary.
%D M. Gardner, Knotted Doughnuts and Other Mathematical Entertainments. Freeman, NY, 1986, p. 101.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Joerg Arndt, <a href="/A005352/b005352.txt">Table of n, a(n) for n = 1..1000</a>
%H Joerg Arndt, <a href="http://www.jjj.de/fxt/#fxtbook">Matters Computational (The Fxtbook)</a>, p. 58-59
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Negabinary.html">Negabinary</a>
%H A. Wilks, <a href="/A005351/a005351.pdf">Email, May 22 1991</a>
%F a(n) = A005351(-n). - _Reinhard Zumkeller_, Feb 05 2014
%e a(4) = 12 because the negabinary representation of -4 is 1100, and in ordinary binary that is 12.
%e a(5) = 15 because the negabinary representation of -5 is 1111, and in binary that is 15.
%t (* This function comes from the Weisstein page *)
%t Negabinary[n_Integer] := Module[{t = (2/3)(4^Floor[Log[4, Abs[n] + 1] + 2] - 1)}, IntegerDigits[BitXor[n + t, t], 2]];
%t Table[FromDigits[Negabinary[n], 2], {n, -1, -50, -1}]
%t (* _Alonso del Arte_, Apr 04 2011 *)
%o (Haskell)
%o a005352 = a005351 . negate -- _Reinhard Zumkeller_, Feb 05 2014
%o (PARI) a(n) = my(t=(32*4^logint(n+1,4)-2)/3); bitxor(t-n, t); \\ _Ruud H.G. van Tol_, Oct 19 2023
%Y Complement of A005351 in natural numbers.
%Y Cf. A212529.
%K nonn,base,nice,look
%O 1,1
%A _N. J. A. Sloane_
|
