A225651-组织环境信息系统

A225651型

除数kA000793号（k） ●●●●。

1, 2, 3, 4, 6, 10, 12, 14, 15, 20, 21, 24, 30, 35, 36, 39, 40, 42, 44, 52, 55, 56, 60, 65, 66, 70, 72, 76, 77, 78, 84, 85, 90, 91, 95, 99, 102, 105, 110, 114, 115, 117, 119, 120, 126, 130, 132, 133, 136, 138, 140, 143, 152, 153, 154, 155, 156, 161, 165, 170 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`在1之后A225649号.` `此外，对于所有n，A225650型（a（n））=（n）和A225655型（a（n））=A000793号（a（n））。`
	链接	`阿洛伊斯·海因茨，n=1..10000时的n，a（n）表`
	MAPLE公司	`b： =proc（n，i）选项记忆；局部p；` p： =`如果'（i＜1，1，ithprime（i））； `如果`（n=0或i<1，1，max（b（n，i-1）， `seq（p^jb（n-p^j，i-1），j=1..ilog[p]（n））` `结束时间：` g： =n->b（n，`if`（n<8，3，numtheory[pi]（ceil（1.328isqrt（n*ilog（n）））））： `a： =proc（n）选项记忆；局部k；` 对于来自1+`if`（n=1,0，a（n-1））的k `而不是irem（g（k），k）=0做od；k个` `结束时间：` `seq（a（n），n=1..70）#阿洛伊斯·海因茨2013年5月22日`
	数学	`Reap[For[n=1，n<=40，n++，If[Divisible[Max[LCM@@@IntegerPartitions[n]]，n]，Sow[n]]][[2，1]]` `（或，对于大量术语：）` `b[n_，i_]：=b[n，i]=模[{p}，p=如果[i<1，1，素数[i]]；如果[n==0\|\|i<1，1，Max[b[n，i-1]，表[p^jb[n-p^j，i-1]{j，1，Log[p，n]//Floor}]]]；g[n_]：=b[n，如果[n<8，3，PrimePi[Ceiling[1.328Sqrt[nLog[n]//Floor]]]]；收获[For[k=1，k<=1000，k++，If[Divisible[g[k]，k]，Sow[k]]][[2，1]](Jean-François Alcover公司2016年2月28日之后阿洛伊斯·海因茨*)`
	黄体脂酮素	`（方案与安蒂·卡图恩的IntSeq-library）：` `（定义A225651型（匹配位置1 1（λ（i）（零？（模(A000793号i） i））`
	交叉参考	`参见。A225648号,A225649号,A225650型,A225653型,A225655型-A225657型.` `上下文中的序列：A187966号 A280584型 A225649号A191149号 A344552型 A122907号` `相邻序列：A225648号 A225649号 A225650型A225652型 A225653型 225654英镑`
	关键字	`非n`
	作者	`安蒂·卡图恩2013年5月16日`
	状态	`经核准的`