|
| |
|
| A207901型 |
| 设S_k表示该序列的前2^k项，设b_k是S_k中不存在的最小正整数，也设R_k等于S_k以相反的顺序读取；然后数字b_k*R_k是接下来的2^k项。 |
|
17
|
|
|
|
1, 2, 6, 3, 12, 24, 8, 4, 20, 40, 120, 60, 15, 30, 10, 5, 35, 70, 210, 105, 420, 840, 280, 140, 28, 56, 168, 84, 21, 42, 14, 7, 63, 126, 378, 189, 756, 1512, 504, 252, 1260, 2520, 7560, 3780, 945, 1890, 630, 315, 45, 90, 270, 135, 540, 1080, 360, 180, 36, 72, 216
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
正整数的置换（但请注意起始偏移量：0-indexed）。
偏移量为0，因为S_0={1}表示前2^0=1个项-丹尼尔·福格斯2018年4月13日
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
从[1]开始；追加2*[1]得到[1,2]；
追加3*[2,1]得到[1,2,6,3]；
附加4*[3,6,2,1]会导致[1,2,6,3,12,24,8,4]；
追加5*[4,8,24,12,3,6,2,1]
结果为[1,2,6,3,12,24,8,4,20,40120,60,15,30,10,5]；
接下来追加7*[5,10,30,15,60120,40,20,4,8,24,12,3,6,2,1]，
在前面的术语中已经找到了6乘以7。
每个新因素都在A050376号: [2,3,4,5,7,9,11,13,16,17,19,23,25,29,...].
以这种方式继续生成此序列的所有项。
|
|
|
数学
|
a={1}；Do[a=Join[a，Reverse[a]*Min[Complement[Range[Max[a]+1]，a]]，{n，1，6}]；一个(*伊凡·内雷廷2015年5月9日*）
|
|
|
黄体脂酮素
|
（PARI）{A050376号（n） =局部（m、c、k、p）；n--；如果（n<=0，2*（n==0），c=0；m=2；while（c<n，m++；if（isprime（m）||（（k=ispower（m，&p））&&isprim（p）&&k==2^赋值（k，2）），c++））；m） }
{a（n）=局部（a=[1]）；n++；对于（n=1,10，a=concat（a，A050376号（n-1）*Vec（Polrev（A）））；阿[n]}
对于（n=0，63，print1（a（n），“，”））\\偏移量编辑为米歇尔·马库斯2019年4月4日
（平价）
up_to_e=13；
v050376=矢量（up_to_e）；
ispow2（n）=（n位和（n，n-1））；
i=0；对于（n=1，oo，if（ispow2（isprimepower（n））），i++；v050376[i]=n）；如果（i==up_toe，break））；
|
|
|
交叉参考
|
囊性纤维变性。A064736号,A281978型,A282291号,A302350型,A302781型,A302783型,A303751型,A303771型,A304085型,A304531型,A304755型对于其他除数或多重排列或推测排列。
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
