A191738-OEIS公司

A191738号

分散A047222号（数字>1且与0或2或3模5同余）。

1, 2, 4, 3, 7, 6, 5, 12, 10, 9, 8, 20, 17, 15, 11, 13, 33, 28, 25, 18, 14, 22, 55, 47, 42, 30, 23, 16, 37, 92, 78, 70, 50, 38, 27, 19, 62, 153, 130, 117, 83, 63, 45, 32, 21, 103, 255, 217, 195, 138, 105, 75, 53, 35, 24, 172, 425, 362, 325, 230, 175, 125, 88 (列表；桌子；图表；参考；听；历史；文本；内部格式)

	抵消	`1,2`
	评论	`有关弥散及其分形序列的背景讨论，请参见A191426号有关同余序列mod 3、mod 4或mod 5的离散，请参见A191655型,A191663号,A191667号,A191702号.` `...` `假设{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个序列中的每个序列都会产生色散，如下所示：` `...` `A191722号=分散度A008851号（0，1 mod 5和>1）` `A191723号=分散度A047215号（0，2 mod 5和>1）` `A191724号=分散度A047218号（0、3模块5和>1）` `A191725号=分散度A047208号（0、4模块5和>1）` `A191726号=分散度A047216号（1,2 mod 5和>1）` `A191727号=分散度A047219号（1,3 mod 5和>1）` `A191728号=分散度A047209号（1,4 mod 5和>1）` `A191729号=分散度A047221号（2,3 mod 5和>1）` `A191730型=分散度A047211号（2、4模块5和>1）` `A191731号=分散度A047204号（3、4模块5和>1）` `...` `A191732号=分散度A047202号（2,3,4模块5和>1）` `A191733号=分散度A047206号（1,3,4模式5和>1）` `A191734号=分散度A032793号（1,2,4 mod 5和>1）` `A191735号=分散度A047223号（1,2,3 mod 5和>1）` `A191736号=分散度A047205号（0,3,4 mod 5和>1）` `A191737号=分散度A047212号（0,2,4模块5且>1）` `A191738号=分散度A047222号（0,2,3 mod 5和>1）` `A191739号=分散度A008854号（0,1,4模块5和>1）` `A191740号=分散度A047220型（0,1,3 mod 5和>1）` `A191741号=分散度A047217号（0,1,2 mod 5和>1）` `...` `有关这20个分散体的更多信息，请参见A191722号.` `...` `关于分散度A191722号-A191741号相关Mathematica程序中使用了“（a或b mod m）”和“（a、b或c mod m”类型序列的通用公式。`
	链接	`伊万·内雷廷，n=1..5050时的n，a（n）表（前100名反对症患者，被压扁）`
	例子	`西北角：` `1....2....3....5....8` `4…7…12…20…33` `6....10...17...28...47` `9....15...25...42...70` `11...18...30...50...83` `14...23...38...63...105`
	数学	`（程序生成递增序列f[n]的色散阵列t）` `r=40；r1=12；c=40；c1=12；` `a=2；b=3；c2=5；m[n_]：=如果[Mod[n，3]==0，1，0]；` `f[n]：=am[n+2]+bm[n+1]+c2m[n]+5层[（n-1）/3]` `表[f[n]，{n，1，30}](A047222号)` `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}]](A191738号)` `扁平[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](A191738号)`
	交叉参考	`囊性纤维变性。A047209号,A047222号,A191722号,A191728号,A191426号.` `上下文中的序列：A035513号 A343646飞机 A191442号A343647飞机 A218602型 A114537号` `相邻序列：A191735号 A191736号 A191737号A191739号 A191740号 A191741号`
	关键词	`非n,表`
	作者	`克拉克·金伯利2011年6月14日`
	状态	`经核准的`