|
%I#8 2017年10月11日16:24:38
%S 1,5,2,15,6,3,40,16,10,10,141,26,11,7255105,66,30,20,8640265，
%电话166,76,51,21,91601665416191130,55,25,12400516651041480326，
%U 140,65,31,1310015416526051201816351165,80,35,142504010415
%N反对偶对A008851的离散（数>1且与0或1模5同余）。
%C有关弥散及其分形序列的背景讨论，请参见A191426。关于同余序列mod 3、mod 4或mod 5的分散，请参见A191655、A191663、A1911667、A191702。
%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除了最多2个初始项（因此第1列总是以1开头）：
%C A191722具有第一列A047202，其他所有列为A008851
%C A191723具有第1列A047206，其他所有列A047215
%C A191724具有第一列A032793，所有其他列为A047218
%C A191725具有第一列A047223，其他所有列为A047208
%C A191726具有第一列A047205，所有其他列为A047216
%C A191727具有第一列A047212，所有其他列为A047219
%C A191728具有第1列A047222，其他所有列A047209
%C A191729具有第一列A008854，其他所有列为A047221
%C A191730具有第一列A047220，所有其他列为A047211
%C A191731具有第一列A047217，其他所有列为A047204
%C。。。
%C A191732具有第一列A000851，其他所有列为A047202
%C A191733具有第一列A047215，其他所有列为A047206
%C A191734具有第一列A047218，所有其他列为A032793
%C A191735具有第一列A047208，所有其他列为A047223
%C A191736具有第一列A047216，所有其他列为A047205
%C A191737具有第一列A047219，所有其他列为A047212
%C A191738具有第一列A047209，所有其他列为A047222
%C A191739具有第一列A047221，其他所有列为A008854
%C A191740具有第一列A047211，所有其他列为A047220
%C A191741具有第一列A047204，所有其他列为A047217
%C。。。
%C关于分散度A191722-A191741，有相关Mathematica程序中使用的“（a或b mod m）”和“（a、b或C mod m”类型序列的通用公式。
%H Ivan Neretin，<a href=“/A91722/b191722.txt”>n的表，a（n）表示n=1..5050</a>
%e西北角：
%e 1….5…15…40…101
%e 2….6…16…41…105
%e 3…10…26…66…166
%e 4…11…30…76…191
%e 7…20…51…130…326
%e 8…21…55…140…351
%t（*程序生成递增序列f[n]*的色散阵列t）
%t r=40；r1=12；c=40；c1=12；
%t a=5；b=6；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}]（*A008851*）
%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（*A191722*）
%t压扁[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]]（*A191722*）
%Y参考A047202、A008851、A191732、A191702和A191426。
%K nonn，表
%O 1,2号机组
%A_Clark Kimberling_，2011年6月13日
| 