|
|
A191538号 |
| 通过对症药物分散(4n-层(n*sqrt(3)))。 |
|
1
|
|
|
1, 3, 2, 7, 5, 4, 16, 12, 10, 6, 37, 28, 23, 14, 8, 84, 64, 53, 32, 19, 9, 191, 146, 121, 73, 44, 21, 11, 434, 332, 275, 166, 100, 48, 25, 13, 985, 753, 624, 377, 227, 109, 57, 30, 15, 2234, 1708, 1416, 856, 515, 248, 130, 69, 35, 17, 5067, 3874, 3212, 1942
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
背景讨论:假设s是正整数的递增序列,s的补码t是无限的,并且t(1)=1。s的离散度是数组D,其第n行是(t(n),s(t(n)),s。每个正整数在D中只出现一次,所以作为一个序列,D是正整数的置换。由u(n)=(包含n的D的行数)给出的序列u是一个分形序列。示例:
|
|
链接
|
|
|
例子
|
西北角:
1, 3, 7, 16, 37, ...
2, 5, 12, 28, 64, ...
4, 10, 23, 53, 121, ...
6, 14, 32, 73, 166, ...
8, 19, 44, 100, 227, ...
|
|
数学
|
(*程序生成递增序列f[n]*的色散阵列T)
r=40;r1=12;c=40;c1=12;f[n_]:=4n-楼层[n*Sqrt[3](*第1列的补充*)
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,r1},{j,1,c1}]](*119538英镑数组*)
扁平[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191538号序列*)
|
|
交叉参考
|
|
|
关键字
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|