|
|
A191736号 |
| 分散A047205号,(数字>1,等于0或3或4 mod 5),由反对角线表示。 |
|
20
|
|
|
1, 3, 2, 5, 4, 6, 9, 8, 10, 7, 15, 14, 18, 13, 11, 25, 24, 30, 23, 19, 12, 43, 40, 50, 39, 33, 20, 16, 73, 68, 84, 65, 55, 34, 28, 17, 123, 114, 140, 109, 93, 58, 48, 29, 21, 205, 190, 234, 183, 155, 98, 80, 49, 35, 22, 343, 318, 390, 305, 259, 164, 134, 83
(列表;桌子;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
...
假设{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....3....5....9....15
2....4....8....14...24
6....10...18...30...50
7....13...23...39...65
11...19...33...55...93
12...20...34...58...98
|
|
数学
|
(*程序生成递增序列f[n]*的色散阵列t)
r=40;r1=12;c=40;c1=12;
a=3;b=4;c2=5;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}]](*A191736号*)
压扁[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191736号*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|