登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 


A237126号
a(0)=0,a(1)=1,a(2n)=非音频(a(n)),a=A003309号,非音频=1926年1月.
25
0, 1, 4, 2, 9, 7, 6, 3, 16, 25, 14, 17, 12, 13, 8, 5, 26, 61, 36, 115, 22, 47, 27, 67, 20, 41, 21, 43, 15, 23, 10, 11, 38, 119, 81, 359, 51, 179, 146, 791, 33, 91, 64, 247, 39, 121, 88, 407, 31, 83, 57, 221, 32, 89, 59, 227, 24, 53, 34, 97, 18, 29, 19, 37, 54
抵消
0,3
评论
有置换的股份A237056型另一个二分法只包含路德数,而另一个二分法只包含非路德数的性质。然而,该序列不是将这些子集中的项按单调顺序排列,而是用出现的排列本身递归地排列这两个子集的顺序,因此这是A237056型.
或者,这可以被视为另一种“纠缠置换”,其中两对互补的自然数子集相互纠缠。在这种情况下,一对互补的奇数/偶数(A005408号/A005843号)与一对互补的路德/非路德数纠缠(A003309号/1926年1月).
配方奶粉
a(0)=0,a(1)=1,a(2n)=非音频(a(n)),a=A003309号,非音频=1926年1月.
例子
a(2)=a(2*1)=非音频(a(1))=1926年1月(1) = 4.
a(3)=a(2*1+1)=ludic(a(1)+1)=A003309号(1+1) =A003309号(2) = 2.
a(4)=a(2*2)=非音频(a(2))=1926年1月(4) = 9.
a(5)=a(2*2+1)=ludic(a(2)+1)=A003309号(4+1) =A003309号(5) = 7.
数学
nmax=64;
T=范围[2,20 nmax];
L={1};
当[Length[T]>0时,使用[{k=First[T]},
附录[L,k];T=下降[T,{1,-1,k}]];
nonL=补码[Range[Last[L]],L];
a[n_]:=a[n]=哪个[
n<2,n,
EvenQ[n]&&a[n/2]<=长度[nonL],nonL[[a[n/2]]],
奇数Q[n]&a[(n-1)/2]+1<=长度[L],L[[a[(n-1)/2]+1]],
True,打印[“error:n=”,n,“T的大小应该增加”]];
表[a[n],{n,0,nmax}](*Jean-François Alcover公司2021年10月10日之后雷·钱德勒在里面A003309号*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(转置)
a237126 n=a237126_列表!!n个
a237126_list=0:es,其中
es=1:concat(转置[映射a192607 es,映射(a003309.(+1))es])
--莱因哈德·祖姆凯勒,2014年2月10日,2014年02月06日
(方案,使用Antti Karttune的IntSeq-library来记忆定义的宏)
(定义(A237126号n) (cond((<n 2)n)(偶数?n)(1926年1月(A237126号(/n 2))(其他(A003309号(+ 1 (A237126号(/(-n 1)2)));;安蒂·卡图恩2014年2月7日
交叉参考
囊性纤维变性。A237427号(反向),A237056型,A235491型.
类似构造的排列:A227413号/A135141号.
关键字
非n
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月21日18:11。包含376087个序列。(在oeis4上运行。)