登录
A191436号
([n*x+n+x-1])的离散度,其中x=(黄金比率)和[]=底线,通过反对偶。
2
1, 4, 2, 12, 6, 3, 33, 17, 9, 5, 88, 46, 25, 14, 7, 232, 122, 67, 38, 19, 8, 609, 321, 177, 101, 51, 22, 10, 1596, 842, 465, 266, 135, 59, 27, 11, 4180, 2206, 1219, 698, 355, 156, 72, 30, 13, 10945, 5777, 3193, 1829, 931, 410, 190, 80, 35, 15, 28656, 15126
抵消
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) 秒=A000040型(素数),D=A114537号,u=A114538号.
(2) 秒=A022343号(没有初始0),D=A035513号(威瑟夫阵列),u=A003603号.
(3) 秒=A007067号,D=A035506号(Stolarsky阵列),u=A133299号.
分散的最新示例:A191426号-A191455号.
例子
西北角:
1....4....12...33...88
2....6....17...46...122
3....9....25...67...177
5....14...38...101..266
7....19...51...135..355
数学
(*程序生成递增序列f[n]*的色散阵列T)
r=40;r1=12;c=40;c1=12;x=黄金比率;
f[n_]:=楼层[n*x+n+x-1](*第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]];
表格形式[Table[t[i,j],{i,1,10},{j,1,10}]]
(*A191436号数组*)
压扁[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191436号序列*)
(*编程人彼得·J·C·摩西2011年6月1日*)
关键词
非n,
作者
克拉克·金伯利2011年6月4日
状态
经核准的