|
Search: id:A007608
|
|
|
| A007608 |
|
Numbers in base -4.
(Formerly M0926)
|
|
+0
11
|
|
| 0, 1, 2, 3, 130, 131, 132, 133, 120, 121, 122, 123, 110, 111, 112, 113, 100, 101, 102, 103, 230, 231, 232, 233, 220, 221, 222, 223, 210, 211, 212, 213, 200, 201, 202, 203, 330, 331, 332, 333, 320, 321, 322, 323, 310, 311, 312, 313, 300, 301, 302, 303, 13030
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
REFERENCES
|
D. E. Knuth, The Art of Computer Programming. Addison-Wesley, Reading, MA, 1969, Vol. 2, p. 189.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics
Prepared and presented by Matthew Szudzik of Wolfram Research, A Mathematica programming contest
|
|
MATHEMATICA
|
ToNegaBases[i_Integer, b_Integer] := FromDigits[ Rest[ Reverse[ Mod[ NestWhileList[(#1 - Mod[ #1, b])/-b &, i, #1 != 0 &], b]]]]; Table[ ToNegaBases[n, 4], {n, 0, 55}]
|
|
CROSSREFS
|
Cf. A007090, A039724, A073785, A073786, A073787, A073788, A073789, A073790 & A039723.
Sequence in context: A004865 A006286 A139129 this_sequence A010343 A118169 A066908
Adjacent sequences: A007605 A007606 A007607 this_sequence A007609 A007610 A007611
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
njas, Robert G. Wilson v (rgwv(AT)rgwv.com), Mira Bernstein (mira(AT)math.berkeley.edu)
|
|
|
Search completed in 0.002 seconds
|
