|
| |
|
| A143210号 |
| 按行读取三角形：欧拉（n，m）的格雷码，1<=m<=n。 |
|
1
|
|
|
|
1, 1, 1, 1, 6, 1, 1, 14, 14, 1, 1, 23, 99, 23, 1, 1, 37, 441, 441, 37, 1, 1, 68, 244, 456, 244, 68, 1, 1, 140, 167, 386, 386, 167, 140, 1, 1, 269, 408, 255, 785, 255, 408, 269, 1, 1, 527, 912, 788, 987, 987, 788, 912, 527, 1
(列表；桌子；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,5
|
|
|
评论
|
行总和为：1、2、8、30、147、958、1082、1388、2651、6430，。。。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
1;
1，1；
1、6、1；
1、14、14、1；
1、23、99、23、1；
1, 37, 441, 441, 37, 1;
1, 68, 244, 456, 244, 68, 1;
1, 140, 167, 386, 386, 167, 140, 1;
1, 269, 408, 255, 785, 255, 408, 269, 1;
1, 527, 912, 788, 987, 987, 788, 912, 527, 1;
|
|
|
数学
|
代码灰度代码列表[k_]：=模块[{b=整数位数[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]；(*A123125号*)f[x_，n_]：=f[x，n]=（1-x）^（n+1）*和[k^n*x^k，{k，0，无穷}]/x；表[FullSimplify[ExpandAll[f[x，n]]]，{n，0，10}]；a=表[系数列表[FullSimplify[ExpandAll[f[x，n]]]，x]，{n，1，10}]；表格[扁平[表格[灰度代码[a[[n]][[m]]，10]，{m，1，n}]]，{n，1，长度[a]}]；压扁[%]
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
