|
|
1, 2, 3, 5, 4, 7, 6, 11, 10, 9, 8, 15, 14, 13, 12, 23, 22, 21, 20, 19, 18, 17, 16, 31, 30, 29, 28, 27, 26, 25, 24, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 95, 94, 93, 92, 91, 90, 89, 88, 87
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
序列是正整数的置换。
排列是自反的。除固定点1、2、3外，它完全由2个循环组成：（4,5）、（6,7）、（8,11）、（9,10）、（12,15），（13,14）、（16,23）、（17,22）、。。。，(24,31), ..., (32,47), ... . -克劳斯·布罗克豪斯
|
|
|
链接
|
|
|
|
配方奶粉
|
对于n>=2：如果a（n-1）=2^m，m=正整数，则a（n）=2^（m+1）-1。如果a（n-1）=3*2^m，m=非负整数，则a（n）=3*2 ^（m+1）-1。否则，a（n）=a（n-1）-1。
对于n>=2:a（2*n）=2*a（n）+1，a（2*n+1）=2*a（n）-尤拉门迪2015年6月8日
|
|
|
MAPLE公司
|
A[1]：=1:A[2]：=2:B[1]：=0:B[2]：=0:
n从3到100 do
对于从A[n-1]-1到A[n-1'的m，在赋值（B[m]）时，执行od：
A[n]：=m；
B[m]：=0；
日期：
|
|
|
数学
|
f[n_]：=块[{a={1}，i，k}，Do[k=1；而[Or[Mod[k，a[i-1]]！=a[[i-1]]-1，成员Q[a，k]]，k++]；附加到[a，k]，{i，2，n}]；a] ；f@120(*迈克尔·德弗利格2015年6月11日*）
A[n_]：=如果[n<4，n，如果[EvenQ[n]，2A[n/2]+1，2A[（n-1）/2]]；表[A[n]，{n，100}](*因德拉尼尔·戈什2017年3月21日*）
f[lst_List]：=块[｛k=2，m=lst[[-1]]｝，While[MemberQ[lst，k]||1+Mod[k，m]！=m、 k++]；追加[lst，k]]；嵌套[f，{1}，70](*罗伯特·威尔逊v2018年1月22日*）
|
|
|
黄体脂酮素
|
（右）
最大值<-50#（可选）
#
for（n in 2:maxn）{
a[2*n]<-2*a[n]+1
a[2*n+1]<-2*a[n]
}
#
一
（PARI）A（n）=如果（n<4，n，if（n%2，2*A（n \ 2），2*A（n/2）+1））；
对于（n=1，50，print1（A（n），“，”）\\因德拉尼尔·戈什2017年3月21日
|
|
|
交叉参考
|
|
|
|
关键词
|
容易的，非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
|
