%I#8 2017年10月11日16:27:19
%S 1,3,2,8,5,4,20,13,10,6,50,33,25,15,7125,83,63,38,18,9313208158,
%电话:95,45,23,11783520395238113,58,28,1219581300988595283145,
%电话:70,30,144895325024701488708363175,75,35,161223881256175
%N反对偶A047218的离散(数>1且与0或3模5同余)。
%C有关弥散及其分形序列的背景讨论,请参见A191426。关于同余序列mod 3、mod 4或mod 5的分散,请参见A191655、A191663、A1911667、A191702。
%C。。。
%C假设{2,3,4,5,6}被划分为{x1,x2}和{x3,x4,x5}。设S是大于1且与x1或x2模5同余的递增序列,T是大于1并与x3或x4或x5模5同义的递增序列。S中有10个序列,每个序列都与T中的一个(几乎)互补序列相匹配。20个序列中的每个序列都会产生色散,如下所示:
%C。。。
%C A191722=A008851的分散度(0,1 mod 5和>1)
%C A191723=A047215的分散度(0,2 mod 5和>1)
%C A191724=A047218的分散度(0,3 mod 5和>1)
%C A191725=A047208的分散度(0,4 mod 5和>1)
%C A191726=A047216的分散度(1,2 mod 5和>1)
%C A191727=A047219的分散度(1,3 mod 5和>1)
%C A191728=A047209的分散度(1,4 mod 5和>1)
%C A191729=A047221的分散度(2,3 mod 5和>1)
%C A191730=A047211的分散度(2,4 mod 5和>1)
%C A191731=A047204的分散度(3、4 mod 5和>1)
%C。。。
%C A191732=A047202的分散度(2,3,4 mod 5和>1)
%C A191733=A047206的分散度(1,3,4 mod 5和>1)
%C A191734=A032793的分散度(1,2,4 mod 5和>1)
%C A191735=A047223的分散度(1,2,3 mod 5和>1)
%C A191736=A047205的分散度(0,3,4 mod 5且>1)
%C A191737=A047212的分散度(0,2,4 mod 5且>1)
%C A191738=A047222的分散度(0,2,3 mod 5且>1)
%C A191739=A008854的分散度(0,1,4 mod 5和>1)
%C A191740=A047220的分散度(0,1,3 mod 5且>1)
%C A191741=A047217的分散度(0,1,2 mod 5和>1)
%C。。。
%C有关这20种分散体的更多信息,请参见A191722。
%C。。。
%C关于分散度A191722-A191741,有相关Mathematica程序中使用的“(a或b mod m)”和“(a、b或C mod m”类型序列的通用公式。
%H Ivan Neretin,n表,n=1..5050的a(n)</a>
%e西北角:
%e 1….3…8…20…50
%e 2….5…13…33…83
%e 4…10…25…63…158
%e 6…15…38…95…238
%e 7…18…45…113…283
%e 9…23…58…145…363
%t(*程序生成递增序列f[n]*的色散阵列t)
%t r=40;r1=12;c=40;c1=12;
%t a=3;b=5;m[n_]:=如果[Mod[n,2]==0,1,0];
%t f[n_]:=a*m[n+1]+b*m[n]+5*层[(n-1)/2]
%t表[f[n],{n,1,30}](*A047218*)
%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}]](*A191724*)
%t压扁[表[t[k,n-k+1],{n,1,c1},{k,1,n}]](*A191724*)
%Y参考A032793、A047218、A191734、A191722、A191426。
%K nonn,表
%O 1,2号机组
%A_Clark Kimberling_,2011年6月13日
|