显示找到的4个结果中的1-4个。
第页1
二进制Champernowne序列:将长度为1、2、3。。。按数字顺序。
+10 35
0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0
评论
也可以看作三角形,其中第n行包含长度为n+1的所有二进制向量-莱因哈德·祖姆凯勒2015年8月18日
在下表中,W表示单词W(n)的序列,由A076478号该列表包括五个分区和两个正整数的自反转排列。
参考文献
Bodil Branner,《动力学》,《普林斯顿数学指南》第四章第14节,T.Gowers主编,第499页。
K.Dajani和C.Kraaikamp,遍历数字理论,数学。美国协会,2002年,第72页。
链接
迈克尔·巴恩斯利和安德鲁·文斯,自相似多边形平铺,《美国数学月刊》124.10(2017):905-921。参见第917页。
配方奶粉
要获得第m个二进制向量,请以2为底写入m+1,并删除初始1-克拉克·金伯利2010年2月7日
例子
0,
1,
0,0,
0,1,
1,0,
1,1,
0,0,0,
0,0,1,
0,1,0,
0,1,1,
1,0,0,
1,0,1,
...
数学
d[n]:=静止@整数位数[n+1,2]+1-1+展平[阵列[d,50]](*克拉克·金伯利2012年2月7日*)
z=1000;
t1=表[元组[{0,1},n],{n,1,10}];
所有二进制单词,词典顺序:
tt=压扁[t1,1];(*所有二进制单词,词典顺序*)
所有二进制字,展平:
压扁[tt];
w[n_]:=tt[[n]];
“列出所有二进制字的tt:”
tt=表[w[n],{n,1,z}];(*所有二进制字*)
u1=压扁[tt];(*单词,串联,A076478号,二进制Champernowne序列*)
u2=地图[长度,tt];
“0^n的位置:”
压扁[位置[Map[Union,tt],{0}]]
“1^n的位置:”
压扁[位置[Map[Union,tt],{1}]]
“这个和接下来的两个序列分区N。”
u3=选择[Range[Length[tt]],Count[tt[[#]],0]==计数[tt[#]],1]&]
u4=选择[Range[Length[tt]],Count[tt[[#]],0]<Count[tt[[#],1]&]
u5=选择[Range[Length[tt]],Count[tt[[#]],0]>Count[tt[[#],1]&]
u6=选择[Range[Length[tt]],Last[tt[[#]]==0&]
u7=选择[Range[Length[tt]],Last[tt[[#]]]==1&]
u8=选择[Range[Length[tt]],First[tt[[#]]==Last[tt[#]]
u9=选择[Range[Length[tt]],First[tt[[#]]]!=最后[tt[[#]]&]
“这个和接下来的三个序列划分N。”
u10=选择[Range[Length[tt]],First[tt[[#]]==0&&Last[tt[#]]==0&]
u11=选择[Range[Length[tt]],First[tt[[#]]==0&&Last[tt[#]]==1&]
u12=选择[Range[Length[tt]],First[tt[[#]]==1&&Last[tt[[#]]==0&]
u13=选择[Range[Length[tt]],First[tt[[#]]==1&&Last[tt[#]]==1&]
“tt中第n个正整数(以2为基数)的位置:”
d[n_]:=如果[First[w[n]]==1,FromDigits[w[n],2];
u14=压扁[表格[位置[表格[d[n],{n,1200}],n],}n,1200}]](*A206332型*)
“w(n)的二进制补码位置:”
u15=comp=Flatten[表格[位置[tt,1-w[n]],{n,1,50}]](*A346306飞机*)
“w(n)的位数总和:”
“w(n)中的运行次数:”
u17=地图[Length,Table[Map[Lengton,Split[w[n]],{n,1,100}]](*A346307型*)
“回文:”
选择[tt,#==反向[#]&]
“回文位置:”
u18=选择[Range[Length[tt]],tt[[#]]==反向[tt[[#]]&](*A346308型*)
“#0-#1为奇数的单词的位置:”
u19=选择[Range[Length[tt]],OddQ[Count[w[#],0]-Count[w[#],1]&](*A346309飞机*)
“#0到#1为偶数的单词的位置:”
u20=选择[Range[Length[tt]],EvenQ[Count[w[#],0]-Count[w[#],1]]&](*A346310型*)
u21=扁平[表[位置[tt,反向[w[n]],{n,1,150}]]
黄体脂酮素
(PARI){m=5;对于(d=1,m,对于(k=0,2^d-1,v=二进制(k);而(matsize(v)[2]<d,v=concat(0,v));对于(j=1,matsize,v)[2],print1(v[j],“,”))}
(哈斯克尔)
导入数据。列表(展开器)
a076478 n=a076478_列表!!n个
a076478_list=concat$tail$map(tail.reverse.unloadr
(\x->如果x==0,则无其他内容,仅$swap$divMod x 2))[1..]
(哈斯克尔)
a076478_row n=a076478 _ tabf!!n::[[国际]]
a076478_tabf=尾部$迭代(\bs->map(0:)bs++映射(1:)bs)[[]]
a076478_list'=concat$concat a076478 _ tabf
(Python)
来自itertools导入计数,产品
定义代理():
对于计数(1)中的数字:
对于产品中的b([0,1],重复=数字):
b的收益
g=代理()
打印([范围(105)中n的下一个(g)])#迈克尔·布拉尼基2021年7月18日
5, 11, 13, 23, 25, 27, 29, 47, 49, 51, 53, 55, 57, 59, 61, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 191, 193, 195, 197, 199, 201, 203, 205, 207, 209, 211, 213, 215, 217, 219, 221, 223, 225, 227, 229, 231, 233, 235, 237
例子
前十四个单词w(n)是0、1、00、01、10、11000、001、010、011、100、101、110、111,因此a(1)=5。
2, 6, 12, 14, 24, 26, 28, 30, 48, 50, 52, 54, 56, 58, 60, 62, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 192, 194, 196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, 224, 226, 228, 230, 232, 234, 236, 238
例子
前十四个单词w(n)是0、1、00、01、10、11000、001、010、011、100、101、110、111,因此a(1)=2。
2, 1, 6, 5, 4, 3, 14, 13, 12, 11, 10, 9, 8, 7, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 126, 125, 124, 123
评论
在长度为2,4,8,16,…的连续子集内通过颠倒顺序获得的正整数的置换-保罗·沙萨2023年3月9日
配方奶粉
a(n)=3*(2^d-1)-n,其中2^d-1<=n<=2^(d+1)-2-迈克尔·布拉尼基2021年9月3日
例子
前十四个单词w(n)是0、1、00、01、10、11000、001、010、011、100、101、110、111,因此a(3)=6。
写成不规则三角形,其中行r>=1的长度为2^r,行和为A103897号(r) ,序列开始:
2, 1;
6, 5, 4, 3;
14, 13, 12, 11, 10, 9, 8, 7;
30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15;
…(结束)
黄体脂酮素
(Python)
来自itertools导入产品
定义comp(s):z,o=单词('0'),单词('1');返回s.translate({z:o,o:z})
def wgen(最大数字):
对于范围(1,maxdigits+1)中的数字:
对于产品中的b(“01”,重复=数字):
屈服“”。连接(b)
定义缺陷(最大数字):
w=[无]+[wn代表wgen中的wn(最大数字)]
返回范围(1,2**(最大数字+1)-1)中n的[w.索引(comp(w[n]))]
搜索在0.006秒内完成
|