A191731-OEIS公司

A191731号

分散A047204号（数字>1，与3或4模5同余）。

1, 3, 2, 8, 4, 5, 19, 9, 13, 6, 48, 23, 33, 14, 7, 119, 58, 83, 34, 18, 10, 298, 144, 208, 84, 44, 24, 11, 744, 359, 519, 209, 109, 59, 28, 12, 1859, 898, 1298, 523, 273, 148, 69, 29, 15, 4648, 2244, 3244, 1308, 683, 369, 173, 73, 38, 16, 11619, 5609, 8109 (列表;桌子;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`有关弥散及其分形序列的背景讨论，请参见A191426号有关同余序列mod 3、mod 4或mod 5的离散，请参见191655年,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号=分散度2015年0月47215日（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 mod 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）表`
	例子	`西北角：` `1....3....8.....19.....48` `2....4....9....23....58` `5....13...33...83....208` `6....14...34...84....209` `7....18...44...109...273` `10...24...59...148...369`
	数学	`（程序生成递增序列f[n]的色散阵列t）` `r=40；r1=12；c=40；c1=12；` `a=3；b=4；m[n_]：=如果[Mod[n，2]==0，1，0]；` `f[n]：=am[n+1]+bm[n]+5层[（n-1）/2]` `表[f[n]，{n，1，30}](A047204号)` `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]]；` `表格形式[表格[t[i，j]，{i，1，10}，{j，1，10}]](A191731号)` `压扁[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](A191731号*)`
	交叉参考	`囊性纤维变性。A047217号,A047204号,A191741号,A191722号,A191426号.` `上下文中的序列：A019666号 A110938号 A135852号A143515号 A082333号 A162728号` `相邻序列：A191728号 A191729号 A191730型A191732号 A191733号 A191734号`
	关键词	`非n,表`
	作者	`克拉克·金伯利，2011年6月13日`
	状态	`经核准的`