%I#11 2017年10月11日18:13:33

%S 1,2,5,3,8,6,4,13,9,10,7,22,14,17,11,12,37,23,28,18,15,19,62,38,47,29，

%电话：24,16,32103,63,78,48,39,27,20,53172104129,79,64,44,33,21,88287，

%U 173214132107,73,54,34,251478288357219178122,89号

%N A047202的离散（数>1且与2或3或4 mod 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有关这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….2….3….4….7

%e 5…8…13…22…37

%e 6…9…14…23…38

%e 10…17…28…47…78

%e 11…18…29…48…79

%e 15…24…39…64…107

%t（*程序生成递增序列f[n]*的色散阵列t）

%t r=40；r1=12；c=40；c1=12；

%t a=2；b=3；c2=4；m[n_]：=如果[Mod[n，3]==0,1,0]；

%tf[n_]：=a*m[n+2]+b*m[n+1]+c2*m[n]+5*层[（n-1）/3]

%t表[f[n]，{n，1，30}]（*A047202*）

%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}]]（*A191732*）

%t压扁[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]]（*A191732*）

%Y参考A008851、A047202、A191722、A191426。

%K nonn，表

%O 1、2

%A_Clark Kimberling_，2011年6月14日