显示1-1个结果(共1个)。
第页1
1, 2, 5, 3, 8, 6, 4, 13, 9, 10, 7, 22, 14, 17, 11, 12, 37, 23, 28, 18, 15, 19, 62, 38, 47, 29, 24, 16, 32, 103, 63, 78, 48, 39, 27, 20, 53, 172, 104, 129, 79, 64, 44, 33, 21, 88, 287, 173, 214, 132, 107, 73, 54, 34, 25, 147, 478, 288, 357, 219, 178, 122, 89
评论
...
假设{2,3,4,5,6}被划分为{x1,x2}和{x3,x4,x5}。设S是大于1且与x1或x2模5同余的递增序列,T是大于1并与x3或x4或x5模5同义的递增序列。S中有10个序列,每个序列都与T中的一个(几乎)互补序列相匹配。20个序列中的每个序列都会产生色散,如下所示:
...
...
...
...
例子
西北角:
1....2....3....4....7
5....8....13...22...37
6....9....14...23...38
10...17...28...47...78
11...18...29...48...79
15...24...39...64...107
数学
(*程序生成递增序列f[n]*的色散阵列t)
r=40;r1=12;c=40;c1=12;
a=2;b=3;c2=4;m[n_]:=如果[Mod[n,3]==0,1,0];
f[n]:=a*m[n+2]+b*m[n+1]+c2*m[n]+5*层[(n-1)/3]
mex[list_]:=NestWhile[#1+1&,1,并集[list][[#1]]<=#1&,1、长度[Union[list]]]
行={NestList[f,1,c]};
Do[rows=Append[rows,NestList[f,mex[Flatten[rows]],r]],{r}];
t[i_,j_]:=行[[i,j]];
表格形式[表格[t[i,j],{i,1,10},{j,1,10}]](*A191732年*)
扁平[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191732年*)
搜索在0.006秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月20日03:04。包含376016个序列。(在oeis4上运行。)
|