%I#9 2014年2月14日00:30:38
%S 1,4,2,12,7,3,31,19,9,5,77,48,24,14,6188118,60,36,16,8456287147,
%电话:89,41,21,101103695357217101,53,26,112665168088645262461130,
%电话:65,28,136436405820881272596316159,70,33,151554097995043
%N([N*x+N+x])的离散度,其中x=sqrt(2)和[]=floor,通过反对偶。
%背景讨论:假设s是正整数的递增序列,s的补码t是无限的,并且t(1)=1。s的离散度是数组D,其第n行是(t(n),s(t(n)),s。每个正整数在D中只出现一次,所以作为一个序列,D是正整数的置换。由u(n)=(包含n的D的行数)给出的序列u是一个分形序列。示例:
%C(1)s=A000040(素数),D=A114537,u=A114538。
%C(2)s=A022343(无初始0),D=A035513(Wythoff阵列),u=A003603。
%C(3)s=A007067,D=A035506(Stolarsky阵列),u=A133299。
%C分散体的最新示例:A191426-A191455。
%e西北角:
%e 1….4…12…31…77
%e 2….7….19…48…118
%e 3…9…24…60…147
%e 5…14…36…89…217
%e 6…16…41…101…246
%t(*程序生成递增序列f[n]*的色散阵列t)
%t r=40;r1=12;c=40;c1=12;x=平方[2];
%t f[n_]:=楼层[n*x+n+x](*第1列的补充*)
%t mex[list_]:=NestWhile[#1+1&,1,并集[list][[#1]]<=#1&,1、长度[Union[list]]]
%t行={NestList[f,1,c]};
%t Do[rows=Append[rows,NestList[f,mex[Flatten[rows]],r]],{r}];
%t t[i,j]:=行[[i,j]];
%t表格形式[表格[t[i,j],{i,1,10},{j,1,10}]]
%t(*A191441阵列*)
%t压扁[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191441序列*)
%t(*项目作者:P eter J.C.Moses,2011年6月1日*)
%Y参见A114537、A035513、A035506、A191438。
%K nonn,表
%O 1,2号机组
%《百灵鸟金伯利》,2011年6月4日
|