OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者。

 

标志
提示
（来自的问候整数序列在线百科全书!)
搜索： a341256-编号：a341256
显示找到的6个结果中的1-6个。 第页1
    排序：关联|参考文献|数|被改进的|创建     格式：长的|短的|数据
A341257型 回文在中定义的所有01个单词顺序中的位置A341256型。 +20
1
1, 2, 3, 6, 7, 9, 12, 14, 15, 21, 24, 30, 31, 35, 41, 45, 48, 52, 58, 62, 63, 75, 81, 93, 96, 108, 114, 126, 127, 135, 147, 155, 161, 169, 181, 189, 192, 200, 212, 220, 226, 234, 246, 254, 255, 279, 291, 315, 321, 345, 357, 381, 384, 408, 420, 444, 450, 474 (列表；图表；参考；听；历史；文本；内部格式)
抵消
1、2
评论
此外A076478号回文-克拉克·金伯利2021年8月16日
链接
n=1..58时的n，a（n）表。
例子
在前20个单词（0、1、00、10、01、11000、100、010、110、001、101、011、111、0000、1000、0100、1100、0010、1010）中，有9个回文：0、1，00、11，000、010，101、111、000，分别从位置1、2、3、6、7、9、12、14、15开始。
数学
z=800；s=表[2n-1，{n，1，z}]；
t=补码[范围[Max[s]]，s]；
s1[n_]：=长度[交点[范围[n-1]，s]]；
t1[n]：=n-1-s1[n]；
w[1]={0}；w[t[[1]]]={1}；
w[n_]：=如果[MemberQ[s，n]，Join[｛0｝，w[s1[n]]]，Join[｛1｝，w[t1[n]]]
tt=表[w[n]，{n，1，z}]；选择[tt，#==反向[#]&]
p=选择[Range[Length[tt]]，tt[[#]]==反向[tt[[#]]&]
交叉参考
囊性纤维变性。A341256型。
看起来相等A044051号- 2. -雨果·普福尔特纳2021年3月16日
关键词
非n
作者
克拉克·金伯利2021年3月16日
状态
经核准的
A342910型 所有01个单词的串联，按A032766号; 请参阅注释。 +10
37
0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1 (列表；图表；参考；听；历史；文本；内部格式)
抵消
1
评论
设s=（s（n））是具有无限补的正整数的严格递增序列，t=（t（n）。
对于n>=1，设s'（n）是<=n-1的s（i）的个数，t'（n）是<=n-1的t（i）个数。
如果n在s中，定义w（1）=0，w（t（1））=1，w（n）=0w（s'（n）），如果n在t中，定义w（n）=1w（t'（n。
秒=A032766号; t吨=A016789号; s’=A004396号; t英尺=A002264号；
在下表中，W表示由A032766号该列表包括五个分区和正整数的自反转置换。
w（n）的长度：A344150型；
单词W（n）在W中的位置，使得#0's=#1's：A344151型；
单词W（n）在W中的位置，使得#0's<#1's：344152美元；
单词W（n）在W中的位置，以便#0's>#1's：A344153型；
以0结尾的单词W（n）在W中的位置：A344154型；
以1结尾的单词W（n）在W中的位置：A344155型；
单词W（n）在W中的位置，使第一个数字=最后一个数字：A344156型；
单词W（n）在W中的位置，第一个数字！=最后一位数：A344157型；
单词W（n）在W中的位置，第一位=0，最后一位0：A344158型；
单词W（n）在W中的位置，第一位=0，最后一位1：A344159型；
单词W（n）在W中的位置，第一位数字=1，最后一位数字0：A344160型；
单词W（n）在W中的位置，第一位数字=1，最后一位数字1:A344161型；
第n个正整数（以2为基数）在W中的位置：A344162型；
W（n）的二进制补码在W中的位置：A344163型；
w（n）中的位数之和：A344164型；
w（n）中的运行次数：344165美元；
回文W中的位置：A344166型；
单词W中的位置，使得#0到#1是奇数：A344167型；
单词W中的位置，使#0到#1为偶数：A344168型；
W中第n个单词的倒置在W中的位置：A344169型。
有关相关序列的指南，请参阅A341256型。
链接
n=1..86时的n，a（n）表。
例子
前二十个单词w（n）：0，1，00，01，10000，001，11，010，0000，100，0001，011，101，0010，00000，110，0100，00001，1000。
数学
z=250；
“序列：”(*A001651号，（3个/2）*）
s=桌子[地板[3 n/2]，{n，1，z}]
“序列t:”(*A016789号; 与0或1 mod 3一致；*）
t=补码[范围[Max[s]]，s]
s1[n_]：=长度[交点[范围[n-1]，s]]；
t1[n]：=n-1-s1[n]；
“序列s1:”
表[s1[n]，{n，1，z}](*A004396号*)
“序列t1:”
表[t1[n]，{n，1，z}](*A002264号*)
w[1]={0}；w[t[[1]]]={1}；
w[n_]：=如果[MemberQ[s，n]，Join[｛0｝，w[s1[n]]]，Join[｛1｝，w[t1[n]]]
“列出所有二进制字的tt:”
tt=表[w[n]，{n，1，z}]（*所有二进制字*）
所有单词，连在一起：
扁平[tt]（*字，串联，A344150型*)
“#0's=#1's的单词位置：”(*A344151型*)
选择[Range[Length[tt]]，Count[tt[[#]]，0]==计数[tt[#]],1]&]
“#0's<#1's的单词位置：”(*344152美元*)
选择[Range[Length[tt]]，Count[tt[[#]]，0]<Count[tt[[#]，1]&]
“#0的>#1的单词位置：”(*A344153型*)
选择[Range[Length[tt]]，Count[tt[[#]]，0]>Count[tt[[#]，1]&]
“以0结尾的单词位置：”(*A344154型*)
选择[Range[Length[tt]]，Last[tt[[#]]==0&]
“以1结尾的单词位置：”(*A344155型*)
选择[Range[Length[tt]]，Last[tt[[#]]==1&]
“以相同数字开头和结尾的单词位置：”(*A344156型*)
选择[Range[Length[tt]]，First[tt[[#]]==Last[tt[[#]]&]
“以相反数字开头和结尾的单词位置：”(*A344157型*)
选择[Range[Length[tt]]，First[tt[[#]]]！=最后[tt[[#]]&]
“以0开头、以0结尾的单词位置：”(*A344158型*)
选择[Range[Length[tt]]，First[tt[[#]]==0和Last[tt[#]]==0
“以0开头、以1结尾的单词位置：”(*344159美元*)
选择[Range[Length[tt]]，First[tt[[#]]==0&&Last[tt[#]]==1&]
“以1开头、以0结尾的单词位置：”(*A344160型*)
选择[Range[Length[tt]]，First[tt[[#]]==1&&Last[tt[#]]==0&]
“以1开头、以1结尾的单词位置：”(*A344161型*)
选择[Range[Length[tt]]，First[tt[[#]]==1&Last[tt[#]]==1&]
“tt中第n个正整数（以2为基数）的位置：A344162型"
d[n_]：=如果[First[w[n]]==1，FromDigits[w[n]，2]；
压扁[表格[位置[表格[d[n]，{n，1200}]，n]，}n，1200}]]
“w（n）的二进制补码位置：A344163型"
comp=压扁[表[位置[tt，1-w[n]]，{n，1，50}]]
“w（n）的位数总和：A344164型"
表[Total[w[n]]，{n，1，100}]
“w（n）中的运行次数：A344165型"
Map[Length，Table[Map[长度，分割[w[n]]]，{n，1，100}]]
“回文：”
选择[tt，#==反向[#]&]
“回文位置：A344166型"
选择[Range[Length[tt]]，tt[[#]]==反向[tt[[#]]&]
“#0到#1是奇数的单词的位置：A344167型"
选择[Range[Length[tt]]，OddQ[Count[w[#]，0]-Count[w[#]，1]&]
“#0-#1为偶数的单词位置：A344168型"
选择[Range[Length[tt]]、EvenQ[Count[w[#]、0]-Count[w[#]、1]]&]
“第n个单词的反转位置：344169美元"
压扁[表格[位置[tt，反向[w[n]]]，{n，1，150}]]
交叉参考
囊性纤维变性。A032766号,A016789号,A004396号,A002264号,A341256型。
关键词
非n,基础
作者
克拉克·金伯利2021年5月11日
状态
经核准的
A076478号 二进制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 (列表；图表；参考；听；历史；文本；内部格式)
抵消
0,1
评论
也可以看作三角形，其中第n行包含长度为n+1的所有二进制向量-莱因哈德·祖姆凯勒2015年8月18日
发件人克拉克·金伯利2021年7月18日：（开始）
在下面的列表中，W表示单词W（n）的序列，由A076478号该列表包括五个分区和两个正整数的自反转排列。
w（n）的长度：A000523号
单词W（n）在W中的位置，使得#0's=#1's：A258410型；
单词W（n）在W中的位置，使得#0's<#1's：A346299飞机；
单词W（n）在W中的位置，以便#0's>#1's：A346300型；
以0结尾的单词W（n）在W中的位置：A005498号；
以1结尾的单词W（n）在W中的位置：A005843号；
单词W（n）在W中的位置，使第一个数字=最后一个数字：A346301飞机；
单词W（n）在W中的位置，第一个数字！=最后一位数：A346302型；
单词W（n）在W中的位置，第一位=0，最后一位0：A171757号；
字W（n）在W中的位置，使得第一个数字＝0并且最后一个数字1：A346303型；
字W（n）在W中的位置，使得第一个数字＝1并且最后一个数字0：A346304型；
单词W（n）在W中的位置，第一位数字=1，最后一位数字1:A346305型；
第n个正整数（以2为基数）的W位置：A206332型；
W（n）的二进制补码在W中的位置：A346306；
w（n）中的位数之和：A048881号；
w（n）中的运行次数：A346307型；
回文W中的位置：A346308型；
单词W中的位置，使得#0到#1是奇数：A346309飞机；
单词W中的位置，使#0到#1为偶数：A346310型；
W中第n个单词的倒置在W中的位置：A081241号.（结束）
参考文献
Bodil Branner，《动力学》，《普林斯顿数学指南》第四章第14节，T.Gowers主编，第499页。
K.Dajani和C.Kraaikamp，遍历数字理论，数学。美国协会，2002年，第72页。
链接
莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=0..10000时的n，a（n）表
迈克尔·巴恩斯利和安德鲁·文斯，自相似多边形平铺，《美国数学月刊》124.10（2017）：905-921。参见第917页。
伊戈尔·帕克，枚举组合学中的复杂性问题，arXiv:1803.06636[math.CO]，2018年。
公式
要获得第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,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}]]
“#0's=#1's的单词位置：”(*A258410型*)
“这个和接下来的两个序列分区N。”
u3=选择[Range[Length[tt]]，Count[tt[[#]]，0]=计数[tt[[#]]，1]和]
“#0's<#1's的单词位置：”(*A346299飞机*)
u4=选择[Range[Length[tt]]，Count[tt[[#]]，0]<Count[tt[[#]，1]&]
“#0的>#1的单词位置：”(*A346300型*)
u5=选择[Range[Length[tt]]，Count[tt[[#]]，0]>Count[tt[[#]]，1]&]
“以0结尾的单词位置：”(*A005498号*)
u6=选择[Range[Length[tt]]，Last[tt[[#]]==0&]
“以1结尾的单词位置：”(*A005843号*)
u7=选择[Range[Length[tt]]，Last[tt[[#]]]==1&]
“以相同数字开头和结尾的单词位置：”(*A346301飞机*)
u8=选择[Range[Length[tt]]，First[tt[[#]]==Last[tt[#]]
“以相反数字开头和结尾的单词位置：”(*A346302型*)
u9=选择[Range[Length[tt]]，First[tt[[#]]]！=最后[tt[[#]]&]
“以0开头、以0结尾的单词位置：”(*A346303型*)
“这个和接下来的三个序列划分N。”
u10=选择[Range[Length[tt]]，First[tt[[#]]==0&&Last[tt[#]]==0&]
“以0开头、以1结尾的单词位置：”(*A171757号*)
u11=选择[Range[Length[tt]]，First[tt[[#]]==0&&Last[tt[#]]==1&]
“以1开头、以0结尾的单词位置：”(*A346304型*)
u12=选择[Range[Length[tt]]，First[tt[[#]]==1&&Last[tt[#]]==0&]
“以1开头、以1结尾的单词的位置：”(*A346305型*)
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）的位数总和：”
u16=表[总计[w[n]]，{n，1，100}](*A048881号*)
“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型*)
“第n个单词的反转位置：”(*A081241号*)
u21=压扁[表[位置[tt，反向[w[n]]]，{n，1150}]]
(*克拉克·金伯利2011年7月18日*）
黄体脂酮素
（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..]
--莱因哈德·祖姆凯勒2012年2月8日
（哈斯克尔）
a076478_row n=a076478 _ tabf！！n：：[[国际]]
a076478_tabf=尾部$迭代（\bs->map（0:）bs++映射（1:）bs）[[]]
a076478_list'=concat$concat a076478 _ tabf
--莱因哈德·祖姆凯勒2015年8月18日
（Python）
从itertools导入计数，产品
定义代理（）：
对于计数（1）中的数字：
对于产品中的b（[0,1]，重复=数字）：
b的收益
g=代理（）
打印（[范围（105）中n的下一个（g）]）#迈克尔·布拉尼基2021年7月18日
交叉参考
囊性纤维变性。A007931号,A030308号,A053645号。
囊性纤维变性。A341256型,A341258型,A341334飞机,A342753型,A342910型。
关键词
非n,容易的,标签
作者
N.J.A.斯隆2002年11月10日
扩展
由扩展克劳斯·布罗克豪斯2002年11月11日
状态
经核准的
A342753型 所有01个单词的串联，按A001651号; 请参阅注释。 +10
31
0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1 (列表；图表；参考；听；历史；文本；内部格式)
抵消
1
评论
设s=（s（n））是具有无限补的正整数的严格递增序列，t=（t（n）。
对于n>=1，设s'（n）是<=n-1的s（i）的个数，t'（n）是<=n-1的t（i）个数。
如果n在s中，定义w（1）=0，w（t（1））=1，w（n）=0w（s'（n）），如果n在t中，定义w（n）=1w（t'（n。
秒=A001651号; t吨=A008585号; s’=A004523号; t’=A002264号；
在下表中，W表示由A001651号。该列表包括五个分区和两个正整数排列。
W中1-自由词的位置：A006999号；
W中0-自由词的位置：A029858美元；
w（n）的长度：A342774；
单词W（n）在W中的位置，使得#0's=#1's：A342775飞机；
单词W（n）在W中的位置，使得#0's<#1's：A342776飞机；
单词W（n）在W中的位置，以便#0's>#1's：A342777飞机；
最后一个数字为0的单词在W中的位置：A342778飞机；
最后一个数字为1的单词在W中的位置：A342779飞机；
单词W（n）在W中的位置，使第一个数字=最后一个数字：A342780型；
单词W（n）在W中的位置，第一个数字！=最后一位数：A342781型；
单词W（n）在W中的位置，第一位=0，最后一位0：A342748飞机；
单词W（n）在W中的位置，第一位=0，最后一位1：A342783型；
单词W（n）在W中的位置，第一位数字=1，最后一位数字0：A342784飞机；
单词W（n）在W中的位置，第一位数字=1，最后一位数字1:342785英镑；
第n个正整数（以2为基数）的W位置：342786美元；
W（n）的二进制补码在W中的位置：A342787飞机；
w（n）中的位数之和：A342788飞机；
w（n）中的运行次数：A342789型；
回文W中的位置：A342790型；
单词W中的位置，使得#0到#1是奇数：A342791型；
单词W中的位置，使#0到#1为偶数：A342792飞机。
中第n个单词倒转的W位置A342798飞机。
有关相关序列的指南，请参阅A341256型。
链接
n=1..86时的n，a（n）表。
例子
前16个单词w（n）：0，00，1000，01，10，0000，001，100，010，00000，11，0001，0100，1000，0010。
数学
z=100；s=桌子[地板[（3n-1）/2]，{n，1，z}]；(*A001651号*)
t=补码[Range[Max[s]]，s]；(*A008585号*)
s1[n_]：=长度[交点[范围[n-1]，s]]；
t1[n]：=n-1-s1[n]；
表[s1[n]，{n，1，z}]；(*A004523号*)
表[t1[n]，{n，1，z}]；(*A002264号*)
w[1]={0}；w[t[[1]]]={1}；
w[n_]：=如果[MemberQ[s，n]，连接[{0}，w[s1[n]]]，连接[{1}，w[t1[n]]；
tt=表[w[n]，{n，1，z}](*A342753型，单词*）
压扁[tt](*A342753型，串联*）
地图[长度，tt](*A342774*)
压扁[位置[Map[Union，tt]，{0}]]；(*A006999号*)
压扁[Position[Map[Munion，tt]，｛1｝]]；(*A029858号*)
zz=范围[长度[tt]]；
选择[zz，计数[tt[[#]]，0]==计数[tt[[#]],1]&](*A342775飞机*)
选择[zz，计数[tt[[#]]，0]<计数[tt[[#]],1]&](*A342776飞机*)
选择[zz，Count[tt[[#]]，0]>Count[tt[[#]，1]&](*A342777飞机*)
选择[zz，Last[tt[[#]]==0&](*A342778飞机*)
选择[zz，Last[tt[[#]]==1&](*A342779飞机*)
选择[zz，First[tt[[#]]==Last[tt[[#]]&](*A342780型*)
选择[zz，First[tt[[#]]]！=最后[tt[[#]]&](*A342781型*)
选择[zz，First[tt[[#]]]==0&&Last[tt[[#]]==0&](*A342782型*)
选择[zz，First[tt[[#]]]==0&&Last[tt[[#]]==1&](*A342783型*)
选择[zz，First[tt[[#]]]==1&&Last[tt[[#]]==0&](*342784美元*)
选择[zz，First[tt[[#]]]==1&Last[tt[#]]==1&](*342785英镑*)
d[n_]：=如果[First[w[n]]==1，FromDigits[w[n]，2]；
压扁[表格[位置[表格[d[n]，{n，1200}]，n]，}n，1200}]](*A342786飞机*)
comp=压扁[表[位置[tt，1-w[n]]，{n，1，50}]](*A342787飞机*)
表[Total[w[n]]，｛n，1100｝](*A342788飞机*)
Map[Length，Table[Map[长度，分割[w[n]]]，{n，1，100}]](*A342789型*)
选择[zz，tt[[#]]==反向[tt[[#]]&](*A342790型*)
选择[zz，OddQ[Count[w[#]，0]-Count[w[#]，1]]&](*A342791型*)
选择[zz，EvenQ[Count[w[#]，0]-Count[w[#]，1]]&](*A342792飞机*)
压扁[表[位置[tt，反向[w[n]]]，{n，1，150}]]；(*A342798飞机*)
交叉参考
囊性纤维变性。A001651号,A341256型,A342910型。
关键词
非n,基础
作者
克拉克·金伯利2021年4月10日
状态
经核准的
A341334飞机 所有01个单词的串联，按A016777号; 请参阅注释。 +10
22
0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1 (列表；图表；参考；听；历史；文本；内部格式)
抵消
1
评论
设s=（s（n））是具有无限补的正整数的严格递增序列，t=（t（n）。
对于n>=1，设s'（n）是<=n-1的s（i）的个数，t'（n）是<=n-1的t（i）个数。
如果n在s中，定义w（1）=0，w（t（1））=1，w（n）=0w（s'（n）），如果n在t中，定义w（n）=1w（t'（n。
秒=A016777号; t吨=A007494号; s’=A002264号; t’=A004523号；
在下面的列表中，W表示由A016777号。该列表包括五个分区和两个正整数排列。
W中1-自由词的位置：A003462号；
W中0-自由词的位置：A134342号（推测）；
单词W（n）在W中的位置，使得#0's=#1's：A342732型；
单词W（n）在W中的位置，使得#0's<#1's：A342733型；
单词W（n）在W中的位置，以便#0's>#1's：A342734飞机；
单词W（n）在W中的位置，使第一个数字=最后一个数字：A342735型；
单词W（n）在W中的位置，第一个数字！=最后一位数：A342736型；
w（n）的长度：A342739型；
以0结尾的单词W（n）在W中的位置：A342740型；
以1结尾的单词W（n）在W中的位置：A342741型；
单词W（n）在W中的位置，第一位=0，最后一位0：A342742；
单词W（n）在W中的位置，第一位=0，最后一位1：A342743；
单词W（n）在W中的位置，第一位数字=1，最后一位数字0：A342744飞机；
单词W（n）在W中的位置，第一位数字=1，最后一位数字1:A342745型；
第n个正整数（以2为基数）的W位置：A342746飞机；
W（n）的二进制补码在W中的位置：A342747飞机；
w（n）中的位数之和：A342748飞机；
w（n）中的运行次数：A342749飞机；
回文W中的位置：342750英镑；
单词W中的位置，使得#0到#1是奇数：A342751型；
单词W中的位置，使#0到#1为偶数：A342752型。
有关相关序列的指南，请参阅A341256型。
链接
n=1..86时的n，a（n）表。
例子
前二十个单词w（n）：0，1，10，00，11，110，01，100，111，010，1110，101，000，1100，1111，011，1010，11110，0110，1101。
数学
z=250；s=表[3 n-2，{n，1，z}](*A016777号*)
t=补码[范围[Max[s]]，s](*A007494号*)
s1[n_]：=长度[交点[范围[n-1]，s]]；
t1[n]：=n-1-s1[n]；
表[s1[n]，{n，1，z}](*A002264号*)
表[t1[n]，{n，1，z}](*A004523号*)
w[1]={0}；w[t[[1]]]={1}；
w[n_]：=如果[MemberQ[s，n]，Join[｛0｝，w[s1[n]]]，Join[｛1｝，w[t1[n]]]
tt=表[w[n]，{n，1，z}](*A341334飞机，所有二进制字*）
压扁[tt](*A341334飞机，单词串联*）
压扁[位置[Map[Union，tt]，{0}]](*A003462号*)
压扁[位置[Map[Union，tt]，{1}]](*A134342号推测*）
zz=范围[长度[tt]]；
选择[zz，计数[tt[[#]]，0]==计数[tt[[#]]，1]&](*A342732型*)
选择[zz，计数[tt[[#]]，0]<计数[tt[[#]],1]&](*A342733型*)
选择[zz，Count[tt[[#]]，0]>Count[tt[[#]，1]&](*A342734飞机*)
选择[zz，First[tt[[#]]==Last[tt[[#]]&](*A342735型*)
选择[zz，First[tt[[#]]]！=最后[tt[[#]]&](*A342736飞机*)
地图[长度，tt](*A342739型*)
选择[zz，Last[tt[[#]]==0&](*A342740型*)
选择[zz，Last[tt[[#]]==1&](*A342741型*)
选择[zz，First[tt[[#]]]==0&&Last[tt[[#]]==0&](*A342742型*)
选择[zz，First[tt[[#]]]==0&&Last[tt[[#]]==1&](*A342743飞机*)
选择[zz，First[tt[[#]]]==1&&Last[tt[[#]]==0&](*A342744飞机*)
选择[zz，First[tt[[#]]]==1&Last[tt[#]]==1&](*A342745型*)
d[n]：=如果[First[w[n]]==1，FromDigits[w[n]，2]]；
压扁[表格[位置[表格[d[n]，{n，1200}]，n]，}n，1200}]](*A342746飞机*)
comp=压扁[表[位置[tt，1-w[n]]，{n，1，50}]](*A342747飞机*)
表[Total[w[n]]，{n，1，100}](*A342748飞机*)
Map[Length，Table[Map[长度，分割[w[n]]]，{n，1，100}]](*A342749飞机*)
选择[zz，tt[[#]]==反向[tt[[#]]&](*342750英镑*)
选择[zz，OddQ[Count[w[#]，0]-Count[w[#]，1]]&](*A342751型*)
选择[zz，EvenQ[Count[w[#]，0]-Count[w[#]，1]]&](*A342752型*)
交叉参考
囊性纤维变性。A016777号,A007494号,A134352号（推测），A341256型。
关键词
非n
作者
克拉克·金伯利2021年3月20日
状态
经核准的
A341258型 所有01个单词的串联，按A000201号; 请参阅注释。 +10
19
0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0 (列表；图表；参考；听；历史；文本；内部格式)
抵消
1
评论
设s=（s（n））是具有无限补的正整数的严格递增序列，t=（t（n）。对于n>=1，设s'（n）是<=n-1的s（i）的个数，t'（n）是<=n-1的t（i）个数。如果n在s中，定义w（1）=0，w（t（1））=1，w（n）=0w（s'（n）），如果n在t中，定义w（n）=1w（t'（n。
秒=A000201号; 吨=A001950号; s’=A005206号; t’=A060144号；
有关相关序列的指南，请参阅Mathematica程序和A341256型。
链接
n=1..86时的n，a（n）表。
例子
前20个单词：0,1,00,01,10000,110010101000000011101110001010000000111。
数学
z=250；r=黄金比率；
“序列s；”(*A000201号*)
s=表格[楼层[nr]，{n，1，z}]
“序列t:”(*A001950号*)
t=补码[范围[Max[s]]，s]
s1[n_]：=长度[交点[范围[n-1]，s]]；
t1[n]：=n-1-s1[n]；
“序列s1：A005206号"
表[s1[n]，{n，1，z}]
“序列t1：A060144号"
表[t1[n]，{n，1，z}]
w[1]={0}；w[t[[1]]]={1}；
w[n_]：=如果[MemberQ[s，n]，Join[｛0｝，w[s1[n]]]，Join[｛1｝，w[t1[n]]]
“列出所有二进制字的tt:”
tt=表[w[n]，{n，1，z}]（*所有二进制字*）
所有单词，连在一起：
压扁[tt](*A341258型单词，串联*）
“联盟地图上的单词：”
地图[Union，tt]
“w[n]的长度：A112310号"
地图[长度，tt]
“#0's=#1's的单词位置：A344950型"
“这个和接下来的两个序列划分N。”
选择[范围[长度[tt]]，
计数[tt[[#]]，0]==计数[tt[[#]，1]&]
“#0＜#1的单词的位置：A344951型"
选择[Range[Length[tt]]，Count[tt[[#]]，0]<Count[tt[[#]，1]&]
“#0的>#1的单词位置：A344952型"
选择[Range[Length[tt]]，Count[tt[[#]]，0]>Count[tt[[#]，1]&]
“以0结尾的单词的位置：A133512号发送评论“
选择[Range[Length[tt]]，Last[tt[[#]]==0&]
“以1结尾的单词位置：A344953型"
选择[Range[Length[tt]]，Last[tt[[#]]==1&]
“以相同数字开头和结尾的单词位置：A344954型"
选择[Range[Length[tt]]，First[tt[[#]]==Last[tt[[#]]&]
“以相反数字开头和结尾的单词位置：A344955型"
选择[Range[Length[tt]]，First[tt[[#]]]！=最后[tt[[#]]&]
“以0开头、以0结尾的单词位置：A344956型"
选择[范围[长度[tt]]，
第一[tt[[#]]]==0&&最后[tt[[#]]==0&]
“以0开头、以1结尾的单词位置：A344957型"
选择[范围[长度[tt]]，
第一[tt[[#]]]==0&&最后[tt[[#]]==1&]
“以1开头、以0结尾的单词的位置：A344958型"
选择[范围[长度[tt]]，
第一[tt[[#]]]==1&&最后[tt[[#]]==0&]
“以1开头、以1结尾的单词位置：A344959型"
选择[范围[长度[tt]]，
第一[tt[[#]]]==1&&最后[tt[[#]]==1&]
“tt中第n个正整数（以2为基数）的位置：A344988型"
d[n_]：=如果[First[w[n]]==1，FromDigits[w[n]，2]；
压扁[表格[位置[表格[d[n]，{n，1200}]，n]，}n，1200}]]
“w（n）的二进制补码位置：A344960型"
comp=扁平[表[位置[tt，1-w[n]]，{n，1，100}]]
“w（n）的位数总和：A206650型"
表[Total[w[n]]，{n，1，100}]
“w（n）中的运行次数：A344961型"
Map[Length，Table[Map[长度，分割[w[n]]]，{n，1，100}]]
“回文：”
选择[tt，#==反向[#]&]
“回文位置：A341333飞机"
选择[Range[Length[tt]]，tt[[#]]==反向[tt[[#]]&]
“#0到#1是奇数的单词的位置：A095879号"
选择[范围[长度[tt]]，
奇数Q[Count[w[#]，0]-计数[w[#]，1]]&]
“#0-#1为偶数的单词位置：A095880美元"
选择[Range[Length[tt]]，EvenQ[Count[w[#]，0]-Count[w[#]，1]&]
“第n个单词的反转位置：A344962型"
u21=扁平[表[位置[tt，反向[w[n]]，{n，1，150}]]
交叉参考
囊性纤维变性。A000201号,A001950号,A005206号,A060144号,A112310号,A341259型,A341333飞机。
关键词
非n
作者
克拉克·金伯利2021年3月16日
状态
经核准的
第页1

搜索在0.016秒内完成

查找|欢迎|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。。

上次修改时间：美国东部夏令时2024年6月2日03:32。包含373032个序列。（在oeis4上运行。）