|
| |
| |
|
|
|
1, 2, 3, 4, 5, 7, 6, 8, 9, 13, 11, 15, 10, 14, 12, 16, 17, 25, 21, 29, 19, 27, 23, 31, 18, 26, 22, 30, 20, 28, 24, 32, 33, 49, 41, 57, 37, 53, 45, 61, 35, 51, 43, 59, 39, 55, 47, 63, 34, 50, 42, 58, 38, 54, 46, 62, 36, 52, 44, 60, 40, 56, 48, 64, 65, 97, 81, 113, 73, 105, 89
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
这个序列是正整数的置换。这是它自己的逆置换。
如果术语（n>0）被写为一个数组（左对齐方式），行长度为2^m，m=0,1,2,3，。。。
1;
2, 3;
4, 5, 7, 6;
8, 9, 13, 11, 15, 10, 14, 12;
16, 17, 25, 21, 29, 19, 27, 23, 31, 18, 26, 22, 30, 20, 28, 24;
32, 33, 49, 41, 57, 37, 53, 45, 61, 35, 51, 43, 59, 39, 55, 47, 63, 34, ...
然后可以观察到以下关系：
a（1）=1，a（2）=2，a（3）=3，
对于m>0，a（2^（m+1））=2*a（2^m），a（2^m+1）=a（2^m）+1，a（2^（m+1）+2^m）=2*a（2^（m+1））-1，对于0<k<2^m，a（2^（m+1）+k）=2*a（2^m+k）-1，a（2^（m+1）+2^m+k）=a（2^（m+1）+k）+1
（结束）
|
|
|
链接
|
|
|
|
数学
|
表[（FromDigits[Reverse[IntegerDigits[2n-1，2]]，2]+1）/2，{n，71}](*伊凡·内雷廷2015年10月31日*）
|
|
|
黄体脂酮素
|
（右）
nmax<-10^3（可选）
b<-vector（）
for（seq中的o（1，nmax，2））{
w<-其中（作为数字（intToBits（o））==1）
b<-c（b，总和（2^（最大（w）-w））
}
a<-（b+1）/2
a[1:71]
（PARI）a（n）=（1+来自数字（Vecrev（二进制（2*n-1）），2））/2\\米歇尔·马库斯，2019年2月4日
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
