搜索: a008583-编号:a00858三
|
|
A191655型
|
| (2,5,8,11,14,17,…)的反对偶扩散。 |
|
+10 33
|
|
|
1, 3, 2, 6, 4, 5, 10, 7, 9, 8, 16, 12, 15, 13, 11, 25, 19, 24, 21, 18, 14, 39, 30, 37, 33, 28, 22, 17, 60, 46, 57, 51, 43, 34, 27, 20, 91, 70, 87, 78, 66, 52, 42, 31, 23, 138, 106, 132, 118, 100, 79, 64, 48, 36, 26, 208, 160, 199, 178, 151, 120, 97, 73, 55
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
...
序列(3n,n>0)、(3n+1,n>O)、(3d+2,n>=0)中的每一个序列都产生色散。每个补码(以第一项>1开始)也会产生一个离散。以下列出了六个序列和分散度:
...
...
除了最多2个初始术语(因此第1列总是以1开头):
...
“(a或b mod m)”类型的序列有一个公式(如下面的Mathematica程序所示):
如果f(n)=(n mod 2),则(a,b,a,b
a*f(n+1)+b*f(n),使得“(a或b mod m)”由
a*f(n+1)+b*f(n)+m*楼层((n-1)/2)),当n>=1时。
|
|
链接
|
|
|
例子
|
西北角:
1...3...6....10...16
2...4...7....12...19
5...9...15...24...37
8...13..21...33...51
11..18..28...43...66
|
|
数学
|
(*程序生成递增序列f[n]*的色散阵列T)
r=40;r1=12;c=40;c1=12;
a=3;b=4;m[n_]:=如果[Mod[n,2]==0,1,0];
f[n]:=a*m[n+1]+b*m[n]+3*层[(n-1)/2]
表[f[n],{n,1,30}](*A032766号:(3+5k,4+5k,k>=0)*)
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}]](*A191655型数组*)
扁平[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191655型序列*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A191656号
|
| 通过抗糖尿病药物分散(2,4,5,7,8,10,…)。 |
|
+10 2
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 10, 9, 11, 13, 16, 14, 12, 17, 20, 25, 22, 19, 15, 26, 31, 38, 34, 29, 23, 18, 40, 47, 58, 52, 44, 35, 28, 21, 61, 71, 88, 79, 67, 53, 43, 32, 24, 92, 107, 133, 119, 101, 80, 65, 49, 37, 27, 139, 161, 200, 179, 152, 121, 98, 74, 56
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
...
序列(3n,n>0)、(3n+1,n>0)、(3n+2,n>=0)中的每一个都产生色散。每个补码(以第一项>1开始)也会产生一个离散。以下列出了六个序列和分散度:
...
...
除了最多2个初始术语(因此第1列总是以1开头):
...
“(a或b mod m)”类型的序列有一个公式(如下面的Mathematica程序所示):
如果f(n)=(n mod 2),则(a,b,a,b
a*f(n+1)+b*f(n),因此“(a或b mod m)”由
a*f(n+1)+b*f(n)+m*楼层((n-1)/2)),当n>=1时。
|
|
链接
|
|
|
例子
|
西北角:
1…2……4……7……11
3...5....8....13...20
6...10...16...25...38
9…14…22…34…52
12..19...29...44...67
|
|
数学
|
(*程序生成递增序列f[n]*的色散阵列T)
r=40;r1=12;c=40;c1=12;
a=2;b=4;m[n_]:=如果[Mod[n,2]==0,1,0];
f[n]:=a*m[n+1]+b*m[n]+3*层[(n-1)/2]
表[f[n],{n,1,30}](*A001651号:(2+5k,4+5k,k>=0)*)
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}]](*A191656号数组*)
扁平[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191656号序列*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.010秒内完成
|