|
| |
|
| A333624 |
| 行读取的不规则三角形：T（n，k）=XOR三角形中边长为k的零三角形的数量，其中第一行由n的二进制展开生成。 |
|
4
|
|
|
|
0, 1, 1, 0, 1, 2, 2, 0, 1, 0, 0, 1, 1, 1, 2, 1, 3, 2, 1, 3, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 3, 1, 1, 2, 1, 2, 2, 0, 1, 5, 3, 1, 2, 0, 1, 1, 2, 3, 1, 5, 1, 2, 3, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 2, 1, 1, 3, 0, 1, 3, 2, 3, 2, 2, 1, 1, 0, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,6
|
|
|
评论
|
XOR三角形是一个倒0-1三角形，通过选择顶行并使后续行中的每个条目都是其上两个值的XOR而形成，即。，A038554号（n） 递归地应用，直到到达一个位。
设b（n）=n以二进制形式写入，L（n）=1+floor（log_2（n））=A070939号（n） ●●●●。设=>是b（n）中成对位的异或的一次迭代。设t（n）是由b（n）发起的异或三角形。因此，我们可以通过地址S（i，j）引用t（n）中的任何位，地址1<=i<=L（n）和1<=j<=L。
对于i>1，我们通过s（i，j）-s（i-1，j）中-1的游程长度来检测零三角形，这些三角形是围绕1的“空洞”或t（n）中未定义的“空间”，对于i=1，则通过游程长度检测零三角形。
我们可以通过取素数（k）^T（n，k）对1<=k的乘积来压缩行n<=A334591型（n） ，使用对压缩行进行解码A067255号这样，我们可以压缩大n的零三角形的总体。例如：对于n=151，t（151）有3个单零和4个边长为k=2的零三角形。因此，第151行有{3,4}。2^3 * 3^4 = 8 * 81 = 648.A067255号（648）＝｛3，4｝。
（结束）
|
|
|
链接
|
|
|
|
例子
|
表格开始：
0;
1;
1;
0, 1;
2;
2;
0, 1;
0，0，1；
1, 1;
2, 1;
三；
2, 1;
三；
1, 1;
0，0，1；
0, 0, 0, 1;
1, 0, 1;
3，1；
1, 2;
1, 2;
2, 0, 1;
...
设b（n）=n以二进制形式写入。设=>是b（n）中成对位的异或的一次迭代。设t（n）是由b（n）发起的异或三角形。
行1包含{0}，因为b（1）=1。由于由单个1位产生的异或三角形仅由该位组成，并且三角形t（1）中没有零，因此我们在此行中写入单个项零。
行5={2}，因为b（5）=101=>11=>0。这里我们有两个孤立的零，因此{2}。
行12={2，1}，因为b（12）=1100=>010=>11=>0。我们有两个孤立的零和一个边长为2的三角形零，因此{2，1}。
|
|
|
数学
|
数组[Function[w，If[Length@#==0，{0}，ReplacePart[ConstantArray[0，Max@#[All，1]]，Map[#1->#2&@@#&，#]]/-无穷大->0&@Tally@Flatten@Array[If[#==1，Map[If[Pirst@#==1，Nothing，Length@#]&，Split@w[[#]]]，Map[Cf[First@#=-1，Length@#，Nothing]&，Splict[w[#]]-Most@w[[#-1]]]]&，Lengh@w]]@NestWhileList[Map[BitXor@@#&，Partition[#，2，1]&，Integer Digits[#，2]，Lengt@#>1&]&，39]//压扁
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,标签
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
