A065363-OEIS公司

A065363号

n中平衡三元数字之和。在n的平衡三元展开式中，将3^k替换为1。

0, 1, 0, 1, 2, -1, 0, 1, 0, 1, 2, 1, 2, 3, -2, -1, 0, -1, 0, 1, 0, 1, 2, -1, 0, 1, 0, 1, 2, 1, 2, 3, 0, 1, 2, 1, 2, 3, 2, 3, 4, -3, -2, -1, -2, -1, 0, -1, 0, 1, -2, -1, 0, -1, 0, 1, 0, 1, 2, -1, 0, 1, 0, 1, 2, 1, 2, 3, -2, -1, 0, -1, 0, 1, 0, 1, 2, -1, 0, 1, 0, 1, 2, 1, 2, 3, 0, 1, 2, 1, 2, 3, 2, 3, 4, -1, 0, 1, 0, 1, 2, 1, 2, 3, 0, 1, 2, 1, 2 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,5`
	评论	`符号：（3）<n>（1）。` `负n的扩展：a（-n）=-a（n）-富兰克林·T·亚当斯-沃特斯2009年5月13日` `的行总和A059095号. -雷米·西格里斯特2019年10月5日`
	链接	`莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=0..10000时的n，a（n）表` `F.T.Adams-Waters和F.Ruskey，数字和和及其他数字计数序列的生成函数，JIS 12（2009）09.5.6。` `丹尼尔·福格斯，n=0..100000时的n，a（n）表`
	配方奶粉	`通用公式：（1/（1-x））Sum_{k>=0}（x^3^k-x^（23^k））/（x^-富兰克林·T·亚当斯-沃特斯2009年5月13日` `a（n）=A134024号（n）-A134022号（n） -莱因哈德·祖姆凯勒，2010年12月16日` `a（3n-1）=a（n）-1，a（3n）=a-托马斯·科尼2020年6月24日`
	例子	`5=+1（9）-1（3）-1（1）->+1-1-1=-1=a（5）。`
	MAPLE公司	a： =proc（n）`if`（n=0，0，（d->` if`（d=2， `a（q+1）-1，d+a（q））（irem（n，3，‘q’））` `结束时间：` `seq（a（n），n=0..120）#阿洛伊斯·海因茨2020年1月9日`
	数学	balTernDigits[0]：={0}；balTernDigits[n_/；n>0]：=模块[{unParsed=n，currRem，currExp=1，digitList={}，nextDigit}，当[unParsed>0时，如果[unParse==3^（currExp-1），digit List=Append[digit列表，1]；unParsed=0，currRem=Mod[unParsed，3^ currExp]/3^（currExp-1）；nextDigit=开关[currRem，0，0，2，-1，1，1]；digitList=追加[digitList，nextDigit]；unParsed=unParsed-nextDigit3^（currExp-1）]；currExp++]；digitalList=反转[digitalList]；返回[digitList]]；balTernDigits[n_/；n<0]：=（-1）balTern数字[Abs[n]]；表[Plus@@balTernDigits[n]，{n，0，108}](阿尔特阿隆索2011年2月25日） `terVal[lst_List]：=反向[lst]。（3^范围[0，长度[lst]-1]）；最大挖深=4；t=表[0，{33^maxDig/2}]；t[[1]]=1；Do[d=整数位数[Range[0，3^dig-1]，3，dig]/。{2 -> -1}; d=前缀[#，1]&/@d；t[[terVal/@d]]=总计/@d，{dig，maxDig}]；前缀[t，0](T.D.诺伊2011年2月24日）` `数组[Total[Prepend[Integer Digits[#，3]，0]//。{a___，b，2，c_}:>{a，b+1，-1，c}]&，109，0](迈克尔·德弗利格2020年6月27日）`
	黄体脂酮素	`（Python）` `定义a（n）：` `s=0` `x=0` `当n>0时：` `x=n%3` `n=无/无3` `如果x==2：` `x=-1` `n+=1` `s+=x` `返回s` `打印（[范围（101）中n的a（n）]）#因德拉尼尔·戈什，2017年6月6日` `（PARI）bt（n）=我的（d=数字（n，3），c=1）；而（c，如果（d[1]==2，d=concat（0，d））；c=0；对于（i=2，#d，如果（d[i]==2，d[i]=-1；d[i-1]+=1；c=1））；d日` `a（n）=vecsum（bt（n））\\查尔斯·格里特豪斯四世2020年5月7日`
	交叉参考	`囊性纤维变性。A059095号,A065364美元,A053735号。请参阅A134452号用于迭代。` `囊性纤维变性。2014年12月22日,A134024号.` `上下文中的序列：A098381号 A318463型 A030372号A119995型 A062756号 A360676型` `相邻序列：A065360型 A065361号 A065362号A065364号 A065365号 A065366号`
	关键词	`基础,容易的,签名,看`
	作者	`马克·勒布伦2001年10月31日`
	状态	`已批准`