显示找到的2个结果中的1-2个。
第页1
1, 7, 2, 25, 9, 14, 3, 111, 33, 63, 11, 50, 18, 13, 4, 401, 143, 231, 41, 193, 79, 53, 15, 222, 66, 126, 22, 51, 17, 28, 5, 1783, 529, 945, 175, 825, 295, 223, 55, 839, 257, 497, 95, 203, 69, 49, 19, 802, 286, 462, 82, 386, 158, 106, 30, 221, 67, 119, 21, 100, 36, 27, 6, 6409, 2295, 3703, 657, 3159, 1201, 849, 233
评论
|
...................1...................
7 2
25......../ \........9 14......../ \........三
/ \ / \ / \ / \
/ \ / \ / \ / \
/ \ / \ / \ / \
111 33 63 11 50 18 13 4
401 143 231 41 193 79 53 15 222 66 126 22 51 17 28 5
等。
每个最大左分支(例如1、7、25(=A110240型)或9、63、193。。。或2、14、50、…)给出了规则30元胞自动机的轨迹,从中给出的特定“种子配置”开始A269164型.
链接
Antti Karttunen,纠缠排列, 2016-2017
数学
nmax=(*序列长度*)100;条款(*来自A269164型*) = 2000; 清除[a,f];269160英镑[n_]:=位X或[n,位或[2n,4n]];f[max_]:=f[max]=(s=排序[表格[A269160型[n] ,{n,0,最大}]];补码[Range[Last[s]],s][[1;;terms]]);f[条款];f[max=2项];而[f[max]!=f[max/2],max=2 max];A269164型[n_Integer]:=如果[n>长度[f[max]],0,f[max][[n]]];a[1]=1;a[n_]:=a[n]=如果[EvenQ[n],A269160型[a[n/2]],A269164型[1+a[(n-1)/2]];A269168型=表[a[n],{n,1,nmax}](*让-弗朗索瓦·奥尔科弗2016年2月23日*)
1, 2, 3, 4, 5, 6, 6, 7, 8, 9, 10, 11, 11, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 21, 21, 21, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 41, 41, 41, 41, 41, 41, 42, 42, 43, 44, 45, 46, 47, 48, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66
数学
术语=100;清除[f];f[max_]:=f[max]=(s=Sort[表[BitXor[n,BitOr[2n,4n]],{n,0,max}]];补码[Range[Last[s]],s][[1;;terms]]);f[条款];f[max=2项];当[打印[max];f[最大值]!=f[最大值/2],最大值=2最大值];A269164型=f[最大值];a[n_]:=计数[A269164型,k_/;k≤n];表[a[n],{n,1,长度[269164英镑]}] (*让-弗朗索瓦·奥尔科弗2016年2月23日*)
搜索在0.007秒内完成
|