|
Search: id:A039724
|
|
| |
|
| 0, 1, 110, 111, 100, 101, 11010, 11011, 11000, 11001, 11110, 11111, 11100, 11101, 10010, 10011, 10000, 10001, 10110, 10111, 10100, 10101, 1101010, 1101011, 1101000, 1101001, 1101110, 1101111, 1101100, 1101101, 1100010, 1100011
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
REFERENCES
|
M. Gardner, Knotted Doughnuts and Other Mathematical Entertainments. Freeman, NY, 1986, p. 101.
D. E. Knuth, The Art of Computer Programming. Addison-Wesley, Reading, MA, 1969, Vol. 2, p. 189.
|
|
LINKS
|
Matthew Szudzik, A Mathematica programming contest
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
EXAMPLE
|
2 = 4+(-2)+0 = 110, 3 = 4+(-2)+1 = 111, ..., 6 = (16)+(-8)+0+(-2)+0 = 11010.
|
|
MATHEMATICA
|
ToNegaBases[ i_Integer, b_Integer ] := FromDigits[ Rest[ Reverse[ Mod[ NestWhileList[ (#1 - Mod[ #1, b ])/-b &, i, #1 != 0 & ], b ] ] ] ]; Table[ ToNegaBases[ n, 2 ], {n, 0, 31} ]
|
|
CROSSREFS
|
Cf. A007088, A005351, A039723, A073785, A007608, A073786, A073787, A073788, A073789, A073790, A039723.
Sequence in context: A045884 A110736 A084292 this_sequence A008944 A106004 A113556
Adjacent sequences: A039721 A039722 A039723 this_sequence A039725 A039726 A039727
|
|
KEYWORD
|
base,nice,nonn,easy
|
|
AUTHOR
|
Robert Lozyniak (11(AT)onna.com)
|
|
EXTENSIONS
|
More terms from Eric Weisstein (eric(AT)weisstein.com).
|
|
|
Search completed in 0.002 seconds
|
