A143214-OEIS公司

A143214号

应用于帕斯卡三角形的格雷码：T（n，m）=格雷码（二项式（n，m））。

1, 1, 1, 1, 3, 1, 1, 2, 2, 1, 1, 6, 5, 6, 1, 1, 7, 15, 15, 7, 1, 1, 5, 8, 30, 8, 5, 1, 1, 4, 31, 50, 50, 31, 4, 1, 1, 12, 18, 36, 101, 36, 18, 12, 1, 1, 13, 54, 126, 65, 65, 126, 54, 13, 1, 1, 15, 59, 68, 187, 130, 187, 68, 59, 15, 1 (列表;桌子;图表;参考;听;历史;文本;内部格式)

	抵消	`1,5`
	评论	`行总和是1、2、5、6、19、46、58、172、235、518、790。`
	链接	`n=1..66时的n、a（n）表。` `Eric Weisstein，Mathematica笔记本灰色代码.nb` `Eric Weisstein，格雷代码《数学世界》。`
	配方奶粉	`T（n，m）=A003188号（二项式（n，m））。`
	例子	`1;` `1, 1;` `1、3、1；` `1, 2, 2, 1;` `1, 6, 5, 6, 1;` `1, 7, 15, 15, 7, 1;` `1, 5, 8, 30, 8, 5, 1;` `1, 4, 31, 50, 50, 31, 4, 1;` `1, 12, 18, 36, 101, 36, 18, 12, 1;` `1, 13, 54, 126, 65, 65, 126, 54, 13, 1;` `1, 15, 59, 68, 187, 130, 187, 68, 59, 15, 1;`
	MAPLE公司	`A143214号：=过程（n，m）` `A003188号（二项式（n，m））；` `结束进程：#R.J.马塔尔2015年3月10日`
	数学	GrayCodeList[k_]：=模块[{b=IntegerDigits[k，2]，i}，Do[If[b[i-1]]==1，b[i]]=1-b[i]]，{i，长度[b]，2，-1}]；【b】；FromGrayCodeList[d_]：=模块[{b=d，i，j}，Do[If[Mod[Sum[b[j]]，{j，i-1}]，2]==1，b[i]]=1-b[i]]，}i，n=长度[d]，2，-1}]；FromDigits[b，2]；GrayCode[i_，n_]：=FromDigits[BitX或@@@Partition[Prepend[IntegerDigits[i，2，n]，0]，2，1]，2]FromGrayCode[i_、n_]，：=From Digits[PitX或[Integer Digits[1，2，n]，FoldList[BitXor，0，Most[IntegertDigits[2，n]]]]，2]；清除[f，a，n，m，x]；a=表格[二项式[n，m]，{m，0，n}]，{n，0，10}]b=表格[扁平[表格[灰度代码[a[n]][[m]]，10]，{m，1，n}]]，{n，1，长度[a]}]；压扁[%] `（模数为2的分形图像程序：）` `c=表[Table[If[m<=n，Mod[b[[n]][[m]]，2]，0]，{m，1，Length[b]}]，{n，1，长度[b]{]；ListDensityPlot[c，网格->假]` `（帕斯卡三角形和麦克马洪数的分形图案相同，A060187号，但不适用于欧拉数，A123125号.)`
	交叉参考	`囊性纤维变性。A123125号,A060187号.` `上下文中的序列：A338878型 A073166号 A050169号A300380型 A300682型 A300605型` `相邻序列：A143211号 2012年12月1日 A143213号A143215号 A143216号 A143217号`
	关键词	`非n,表`
	作者	`罗杰·L·巴古拉和加里·亚当森2008年10月20日`
	扩展	`编辑人米歇尔·马库斯和乔格·阿恩特2013年4月22日`
	状态	`经核准的`