登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A114577号 复合数的分散。 6
1, 4, 2, 9, 6, 3, 16, 12, 8, 5, 26, 21, 15, 10, 7, 39, 33, 25, 18, 14, 11, 56, 49, 38, 28, 24, 20, 13, 78, 69, 55, 42, 36, 32, 22, 17, 106, 94, 77, 60, 52, 48, 34, 27, 19, 141, 125, 105, 84, 74, 68, 50, 40, 30, 23, 184, 164, 140, 115, 100, 93, 70, 57, 45, 35, 29, 236, 212, 183 (列表桌子图表参考历史文本内部格式)
偏移
1,2
评论
第1列由1和素数组成。作为一个序列,这是正整数的置换。作为数组,其分形序列为A022446号其转位序列为A114578号.
素数的离散度在A114537号.
参考文献
克拉克·金伯利(Clark Kimberling),《分形序列和间隔》(Fractal sequences and interspersions),《阿尔斯组合学》(Ars Combinatoria)45(1997)157-168。
链接
伊万·内雷廷,n=1..4950时的n,a(n)表
克拉克·金伯利,间隙和分散.
克拉克·金伯利,间隙和分散《美国数学学会学报》,117(1993)313-321。
例子
西北角:
1 4 9 16 26 39 56 78
2 6 12 21 33 49 69 94
3 8 15 25 38 55 77 105
5 10 18 28 42 60 84 115
7 14 24 36 52 74 100 133
11 20 32 48 68 93 124 162
数学
(*程序计算递增序列s[n]的离散数组T和T的分形序列f;这里,T=复合数的离散,A114577号*)
r=40;r1=10;(*r=T的行数,r1=要显示的行数*);
c=40;c1=12;(*c=T的列数,c1=要显示的列数*);
comp=选择[范围[2,100000]!PrimeQ[#]&];
s[n]:=s[n]=comp[[n]];mex[list_]:=NestWhile[#1+1&,1,并集[list][[#1]]<=#1&,1、长度[Union[list]]];行={NestList[s,1,c]};Do[rows=Append[rows,NestList[s,mex[Flatten[rows]],r]],{r}];t[i_,j_]:=行[[i,j]];
表格形式[表格[t[i,j],{i,1,r1},{j,1,c1}]](*A114577号阵列*)
u=扁平[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A114577号序列*)
row[i]:=row[i]=表[t[i,j],{j,1,c}];
f[n_]:=选择[Range[r],MemberQ[row[#],n]&]
v=压扁[表[f[n],{n,1,100}]](*A022446号,分形序列*)
(* -克拉克·金伯利2014年10月9日*)
交叉参考
囊性纤维变性。A022446号,A114537号,A114578号.
关键词
非n,
作者
克拉克·金伯利2005年12月9日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月18日22:18 EDT。包含371782个序列。(在oeis4上运行。)