|
|
A191537号 |
| 通过对症药物分散(4n-层(n*sqrt(2)))。 |
|
1
|
|
|
1, 3, 2, 8, 6, 4, 21, 16, 11, 5, 55, 42, 29, 13, 7, 143, 109, 75, 34, 19, 9, 370, 282, 194, 88, 50, 24, 10, 957, 730, 502, 228, 130, 63, 26, 12, 2475, 1888, 1299, 590, 337, 163, 68, 32, 14, 6400, 4882, 3359, 1526, 872, 422, 176, 83, 37, 15, 16550, 12624
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
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, 8, 21, 55, ...
2, 6, 16, 42, 109, ...
4, 11, 29, 75, 194, ...
5, 13, 34, 88, 228, ...
7, 19, 50, 130, 337, ...
|
|
数学
|
(*程序生成递增序列f[n]*的色散阵列T)
r=40;r1=12;c=40;c1=12;f[n_]:=4n-楼层[n*Sqrt[2](*第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}]](*191537年数组*)
扁平[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191537号序列*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|