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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A284120型 正整数的置换:a(n)=A258746型(A117120型(n) )=A117120型(258746英镑(n) ) 2
1, 2, 3, 4, 5, 6, 7, 9, 8, 11, 10, 13, 12, 15, 14, 18, 19, 16, 17, 22, 23, 20, 21, 26, 27, 24, 25, 30, 31, 28, 29, 37, 36, 39, 38, 33, 32, 35, 34, 45, 44, 47, 46, 41, 40, 43, 42 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
排列是自反的。除固定点1、2、3、4、5、6、7外,它完全由2个循环组成:(10,11)、(12,13)、(14,15)、(16,18)、(17,19)、(20,22)、(21,23)、(24,26)、(25,27)、(28,30)、(29,31)、(32,37)、(33,36)、(34,39)、(35,38)、(45,40)、。。。
{A000027号,A258746型,A117120型,一个=A258746型(A117120型)}形成克莱因4组。
链接
数学
A[n_]:=如果[n<4,n,如果[EvenQ[n],2A[n/2]+1,2A[(n-1)/2]];a[n_]:=如果[n<4,n,如果[OddQ[楼层[Log2[n]],如果[EvenQ[n],2a[n/2],2a[(n-1)/2]+1],如果[CevenQ[n],2a[n/2]+1,2a[(n-1)/2]];表[a[a[n]],{n,50}](*印地瑞尼Ghosh2017年3月21日*)
黄体脂酮素
(右)
maxrow<-6#(可选)
a<-1:7
for(m in 2:maxrow)for(k in 0:(2^m-1)){
如果(m%%2==0){a[2^(m+1)+2*k]<-2*a[2^m+k]+1
a[2^(m+1)+2*k+1]<-2*a[2^m+k]}
否则{a[2^(m+1)+2*k]<-2*a[2^m+k]
a[2^(m+1)+2*k+1]<-2*a[2^m+k]+1}
}
(PARI)
A(n)=如果(n<4,n,if(n%2,2*A(n \2),2*A(n/2)+1));
a(n)=if(n<4,n,if(logint(n,2)%2,if,(n%2,2*a(n\2)+1,2*a(n/2)),if;
对于(n=1,50,打印1(a(a(n)),“,”)\\印地瑞尼Ghosh,2017年3月21日,修改人查尔斯·格里特豪斯四世
交叉参考
关键字
非n
作者
尤拉门迪2017年3月20日
状态
经核准的

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

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

上次修改时间:2024年4月23日14:30 EDT。包含371914个序列。(在oeis4上运行。)