%I#10 2016年4月9日17:06:35

%S 0,1,2,3,4,51501152153154140141142143144145130131，

%电话：132133134135120121122123124125110111112113114115100，

%电话：101102103104105250251252532542552402412422432424245

%N以-6为基数的数字。

%D D.E.Knuth，《计算机编程的艺术》。艾迪森·韦斯利，马萨诸塞州雷丁市，1969年，第2卷，第189页。

%H Chai Wah Wu，<a href=“/A073787/b073787.txt”>n表，n=0..10000的a（n）</a>

%H Eric Weistein的《数学世界》，<a href=“http://mathworld.wolfram.com/Negabinary.html“>否定</a>

%H由Wolfram Research的Matthew Szudzik编写并提交，<a href=“http://library.wolfram.com/conferences/devconf99/challenge/“>数学编程竞赛</a>

%t ToNegaBases[i_Integer，b_Integer]：=FromDigits[Rest[Reverse[Mod[NestWhileList[（#1-Mod[#1，b]）/-b&，i，#1！=0&]，b]]]；表[ToNegaBases[n，6]，{n，0，60}]

%o（Python）

%o定义A073787（n）：

%o s，q=“”，n

%o当q>=6或q<0时：

%o q，r=divmod（q，-6）

%o如果r<0：

%o q+=1

%o r+=6

%o s+=str（r）

%o返回int（str（q）+s[：：-1]）#_Chai Wah Wu_，2016年4月9日

%Y参见A007092、A039724、A073785、A007608、A07378、A0731788、A073 789、A073790和A039723。

%K基础，简单，无

%0、3

%A _Robert G.Wilson v_，2002年8月11日